В паскале составить программу: определить делимость на 3 для четырехзначного числа. (думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)

Всё намного проще: в Паскале есть оператор mod, который позволяет определить остаток от деления. Число кратно трём тогда, когда оно делится на три без остатка (т. е. остаток от деления на три равен нулю).

var a, b:integer;

begin

writeln ('Введите число');

readln (a);

b:=a mod 3;

if b=0 then writeln ('Число кратно трём') else writeln ('Число не кратно трём');

end.