Дано целое число n.составьте программу, которая выясняет , является ли значением переменной n кратным трем.

Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.