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

Question

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

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.