Даны три вещественных числа. Вывести на экран те их них, которые принадлежат интервалу (1,6 - 3,8).

program square_cube; / / с циклом for

var a, b, c: real;

begin

writeln ('Введите три вещественные числа через пробел ');

readln (a, b, c);

writeln ('В интервал (1,6 - 3,8) попадают числа');

if (a > 1.6) and (a < 3.8) then writeln (a);

if (b > 1.6) and (b < 3.8) then writeln (b);

if (c > 1.6) and (c < 3.8) then writeln (c);

writeln ('---');

end.