Question

Напишите программу, позволяющую определить, введенное число делиться на 5 или нет.

Answer 1

var

 a: integer;

begin

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

 readln(a);

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

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

end.