//Скучно
//Pascal ABC.NET 3.1 сборка 1219

//57
Var
 x,k:integer;
begin
readln(x);
k:=0;
while x0 do
 begin
  if x mod 2=0 then k:=k+1;
  readln(x);
 end;
writeln(k);
end.

{А вот это интересно исключительно благодаря тому, что выдаёт компилятор в процессе}
//67
Var
 x,y:real;
 i:integer;
begin
 x:=-1;
 i:=0;
 while x<=1 do
  begin
   y:=power(x,3);
   writeln('f(',x,')=',y);
   x:=-1;
   i:=i+1;
   x:=x+i*0.1;
  end;
end.