Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры.

program Div3;

var

 n: Integer;

begin

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

 ReadLn (n);

 if n mod 3 = 0 then

   WriteLn (n, ' делится на 3')

 else

   WriteLn (n, ' не делится на 3');

 ReadLn;

end.

Если сумма цифр какого то числа делится на три, тогда это число делится на три