program chanle;
uses crt;
var a:array[1..100] of integer;
      i,n,chan,le:integer;
begin
       clrscr;
       chan:=0; le:=0;
       for i:=1 to 5 do read(a[i]);
       for i:=1 to 5 do
           if(a[i] mod 2 = 0) then chan:=chan+1 else le:=le+1;
       writeln(chan);
       writeln(le);
       readln;
end;