Паскаль: «Введите с клавиатуры число x. Определите, является ли данное число дробным. Пример ввода: 3.5 Пример вывода: Число дробное»

Program z1; var a,c:real; begin  readln(a);  c:=round(a);  if c=a then writeln('число не дробное')          else writeln('Число дробное');   end.