Var n,i,k,j,x,y:longint;
 f1,f2:text;
begin
assign (f1,'patr.in');
reset(f1);
assign (f2,'pair.out');
rewrite(f2);
for i:=1 to n do
brgin
read (f1,n);
x:=0; y:=0;
if x:=1 then i:=i+1
if y:=1 then j:=j+1
end;
k:=i,j;
writeln(f2mk);
close(f1);
close(f2)
end.