Определить, кратно ли случайное число трём (делится ли оно на 3) PASCAL

program z1;

var a: integer;

begin

write('Введите натуральное число: ');

readln(a);

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

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

end.

Объяснение:

Ввод числа

Если остаток от целочисленного деления равен 0, то число делится на 3, иначе не делится