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

Program z2;

var a, b, c:real;

begin

writeln ('Input a, b, c:') ;

readln (a, b, c) ;

writeln ('Числа, удовлетворяющие условию:') ;

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.