program 1;
a:integer;
Begin
write ('a= ');
readln (a);
if (a mod 3=0) then
writeln ('да делится) ;
else
writeln('не делится');
readln;
end.
program 1;
a:integer;
Begin
write ('a= ');
readln (a);
if (a mod 3=0) then
writeln ('да делится) ;
else
writeln('не делится');
readln;
end.