Составить программу в паскаль: дано трехзначное число определить делится ли оно на 3.если да - вывести результат деления,если нет вывести фразу -"число не кратно 3".

Можно так. .
кусок программы.. .
if n mod 3 = 0 then writeln('число делится');
else writeln('не делится');
(это не по признаку делимости)

Program prog;
uses crt;
var a: integer;

begin
write('Введите  трехзначное число а = ');
readln(a);

if a mod 3 = 0 then writeln('Результат = ', a/3)
else  writeln('Число не кратно 3');

end.