var n,k:integer;
begin
k:=0;
writeln (' Признак окончания ввода - число 0');
readln(n);
while n<>0 do begin
if n mod 2 = 0 then k:=k+1;
end;
writeln (k);
end.
var n,k:integer;
begin
k:=0;
writeln (' Признак окончания ввода - число 0');
readln(n);
while n<>0 do begin
if n mod 2 = 0 then k:=k+1;
readln(n);
end;
writeln (k);
end.