var t:array [1..1000] of longint;
    i,n,a              :integer;
    f,g:text;
    x:boolean;
Begin
 assign(f,'economie.in');reset(f);
 assign(g,'economie.out');rewrite(g);
 read(f,n);
 for i:=1 to n do
 read(f,t[i]);
 for i:=1 to n do
 if t[i]=1 then x:=true;
 if x then writeln(g,1,' ',1);
 end.