ПОМОГИТЕ! Пожалуйста! Дам 40 баллов! Есть ДОБРЫЕ ЛЮДИ, ЗАРАНЕЕ СПАСИБО :)))Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.

program Checker;uses crt;var Digit:integer;begin  write(Enter digit:);  readln(Digit);  if Digit mod 3=0 then writeln(This digit is divisible by 3!)  else writeln(This digit is not divisible by 3!);  readln;end.