var
n: integer;
begin
write('Введите n: ');
read(n);
if (n mod 3 = 0) then writeln('Число n кратно 3')
else writeln('Число n не кратно 3');
end.
var
n: integer;
begin
write('Введите n: ');
read(n);
if (n mod 3 = 0) then writeln('Число n кратно 3')
else writeln('Число n не кратно 3');
end.