Определите является ли число полным кратным 5

var

  a:real;

begin

  write('Введите число '); readln(a);

  if (frac(a) = 0) and( trunc(a) mod 5 = 0) then

    writeln('Число ', a ,' кратно 5')

  else

    writeln('Число ', a ,' некратно 5')

end.