var
a: integer;
begin
write('Введите число: ');
readln(a);
if a mod 5 = 0 then write('Число ', a, ' делится на 5.')
else write('Число ', a, ' не делится на 5.');
end.
var
a: integer;
begin
write('Введите число: ');
readln(a);
if a mod 5 = 0 then write('Число ', a, ' делится на 5.')
else write('Число ', a, ' не делится на 5.');
end.