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.
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.