Var i,a,b:integer;
Begin
  Randomize();
  for i:=1 to 20 do
    begin
      a:=Random(0,50);
      if (a mod 2 = 0) then b:=b+1;
    end;
 Writeln(b)
End.