PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите целое число и нажмите enter');
if n mod 3=0 then Writeln('Число ',n,' нацело делится на 3')
else Writeln('Число ',n,' нацело не делится на 3')
end.