program job_2;
var
a : integer;
begin
writeln('введите а');
readln(a);
if a mod 3=0 then 
writeln('да это число ',a,'делится на 3')
else
writeln('нет это число ',a,' не  делится на 3')
end.