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

program raf105;

var a,b:integer;

begin

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

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

a:=1;

while a<>0 do

begin

readln(a);

if (a mod 2) = 0

 then b:= b+a;

end;

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

end.

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