program raf105;

var a,b:integer;

begin

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

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

a:=1;

while a<>0 do

begin

 readln(a);

 if (a>0) and ((a mod 3)=0)

   then b:= b+a;

end;

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

end.

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