Question

Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1,3) reshit' po Paskalu

Answer 1

var
a,b,c:real;
begin
readln(a,b,c);
if (a>1) and (a<3) then writeln(a);
if (b>1) and (b<3) then writeln(b);
if (c>1) and (c<3) then writeln(c);
end.