var a,s: integer;
begin
s:=0;
repeat
write('Введите число: ');
readln(a);
if (a mod 2 = 0) then s:=s+a;
until a=0;
writeln('Сумма всех четных чисел: ',s);
end.
