дано натупальное число N.определить кратно ли оно 3.нужно в паскале составить

var

 n: integer;

begin

 write('Введите n: ');

 read(n);

 if (n mod 3 = 0) then writeln('Число n кратно 3')

 else writeln('Число n не кратно 3');

end.