СОСТАВЬТЕ ПРОГРАММУ ОПРЕДЕЛЯЮЩУЮ ЯВЛЯЕТСЯ ЛИ ДАННОЕ ЧИСЛО ДЕЛИТЕЛЕМ ЧИСЛА 3

Var a:integer; Begin Readln(a) ; If (3 mod a=0) then writeln ('Является') Else write('Не является') ; End.

var n:integer;beginreadln(n);if 3 mod n =0 then writeln('yes'); else writeln('no');end.mod значить деление с остатком, если 3 делится на N с остатком 0 то печатать Да иначе печатать Нет.