Даны 3 вещественных числа. вывести на экран те из них, которые принадлежат интервалу (0,7-5,1) - Pascal ABC

var
  a, b, c: real;
 
begin
  read(a, b, c);
  if (a > 0.7) and (a < 5.1) then writeln(a);
  if (b > 0.7) and (b < 5.1) then writeln(b);
  if (c > 0.7) and (c < 5.1) then writeln(c);
end.