Даны три вещественных числа

[malikon]

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

[ZX Spectrum-128]

For i:=1 to 3 do
 Begin
  Readln(x);
  If (x>1) and (x<3) then
   Writeln(x);
 End;