С клавиатура вводиться последовательность целых чисел. Число 0 служит признаком конца

program raf105;

var a,b:integer;

begin

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

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

a:=1;

while alt;gt;0 do

begin

readln(a);

if (a mod 2) = 0

 then b:= b+a;

end;

writeln('Сумма чётных чисел: ',b);

end.

Программка написана на языке PascalABC.NET