так как x:real;
то надо воспользоватся процедурой Frac
Пример:
Код:
var x:real; begin readln(x); if Frac(x)=0 then writeln(x,' - целое число!') else writeln(x,' - дробное число!'); end.