-Цитата от luimorte

2.
напишите прогграмму ,которая запрашивает с клавиатуры числа до тех пор,пока вводимое число не окажется меньше предыдущего или сумма чисел не станет кратной 3.

Код:

var
  a, last, sum: Integer;
begin
  a := 0;
  sum := 0;
  last := 0;
  while (a >= last) and ((sum mod 3 <> 0) or (sum = 0)) do
   begin
     last := a;
     readln(a);
     sum := sum + a;
   end;
end.

Не проверял, но вроде должно работать.