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, иначе не делится
