Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно.

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x);

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

if (x mod 2 = 0) then y:=y + 1; / / проверяем, если число последовательности четное, то добавляем его в сумму

read (x); / / вводим с клавиатуры очередное число последовательности

end;

write (' количество четных чисел последовательности = ', y); / / выводим ответ

end.