Uses crt;
Const
N = 5;
var
a:array[1..N] of integer;
i,k,p:integer;
begin
      for i:=1 to N do readln(a[i]);


      for i:=1 to N-1 do
      begin
            if(a[i]*a[i+1] mod 2 = 0) and (a[i]*a[i+1] > 0) then
            begin
                k := k + 1;
            end;
      end;

      writeln(k);
      readkey;
end.