Составьте программу определяющую является ли данное число делителем числа 3

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

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