Программа в 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.