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

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;  //Цифры четырехзначного числа

begin

  writeln('Введите четырехзначное число');

  readln(a);

  a1:= a div 1000;

  a2:= (a mod 1000) div 100;

  a3:= (a mod 100) div 10;

  a4:= a mod 10;

  if (a1 + a2 + a3 + a4) mod 3 = 0 then writeln(a, ' делится на 3')

  else writeln(a, ' не делится на 3');

end.