ошибка с mod

[Kn793]

Подскажите, где я туплю

function Cel(chislo:Real): boolean;
begin
  If chislo mod 1 = 0 then result := True else result := False;
end;

[Error] Project1.dpr(16): Operator not applicable to this operand type

[Stilet]

mod только с целыми. т.е. c chislo:integer

[puporev]

mod и div используются только при работе с целыми числами, ибо это целочисленное деление.
Если хочешь узнать целое или дробное, то нужно писать
function Cel(chislo:Real): boolean;
begin
If frac(chislo) = 0 then result := True else result := False;
end;
frac - дробная часть вещественного числа.