логической переменной p присвоить значение true, если введенное вами число делится без остатка на 3 и false в противном случае. Вывести значение переменной p на экран.
В паскаль срочно

var a:integer; p:boolean;

begin

readln(a);

p:=a mod 3=0;

writeln(p);

end.

Пример:

10

FALSE