Составьте программу, которая проверяет, делится ли на 3 введенные целое число, и выводит на экран соответствующее сообщение: Делится либо не делится

program abc;

var a: integer;

begin

readln (a);

if a mod 3 = 0 then writeln ('Делится')

else writeln ('Не делится');

end.

Код написан на языке Паскаль. Считываем число и записываем его в переменную a. Проверяем делится ли оно без остатка на 3 (т. е. кратно ли оно 3-м). Если кратно, то выводим "Делится". Если нет, то выводим "Не делится".