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

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