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.