Программа в Pascal ABC С клавиатуры вводится вещественное число, если оно из интервала...

Question

Программа в Pascal ABC
С клавиатуры вводится вещественное число, если оно из интервала {3,10} то на экран вывести его целую часть иначе десятичную

Answer 1

Var r: real;
begin
 read(r);
 if (r > 3) and (r < 10) then
  write(trunc(r))
 else
  write(r - trunc(r))
end.