uses crt;
var
x,code: integer;
st: string;
begin
clrscr;
writeln('введите целое число');
readln(st);
val(st,x,code);
if code=0 then
if x mod 5=0 then writeln('кратно 5') else writeln('не кратно 5')
else writeln('это не целое число');
readln;
end.