Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3 — Pascal(Паскаль)

VAR
  n:integer;
BEGIN
  write('Введите  целое число: ');
  readln(n);
  if n mod 3=0 then writeln('Введеное число делится на 3 без остатка!')
  else writeln('Введенное число делится на 3 с остатком!');
END.