var

 a: integer;

begin

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

 readln(a);

 if a mod 5 = 0 then write('Число ', a, ' делится на 5.')

 else write('Число ', a, ' не делится на 5.');

end.