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

спасибо

program z2;var a,b,c:real;beginwriteln('Input a, b, c:');readln(a,b,c);writeln('Числа, удовлетворяющие условию:');if((a>1) and (a<3)) thenwriteln(a);if((b>1) and (b<3)) thenwriteln(b);if((c>1) and (c<3)) thenwriteln(c);end.