ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ 70 БАЛЛОВ для N введенных с

program raf105;

var a,b:integer;

begin

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

writeln('Чтоб окончить введите 0');

a:=1;

while alt;gt;0 do

begin

 readln(a);

 if (agt;0) and ((a mod 3)=0)

   then b:= b+a;

end;

writeln('Сумма положительных чисел, кратных трём: ',b);

end.

Язык программирования PascalABC