Const Fi='HCHINH.INP';
      Fo='HCHINH.OUT';
Var f,g: text;
    A: array[1..1000] of longint;
    i,n,d: longint;

Function hh(a: longint): boolean;
Var i,s: longint;
Begin
        s:=0;
        For i:=1 to a div 2 do
                If a mod i = 0 then s:=s+i;

        If a<>s then exit(false);
                     exit(true);
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Readln(f,n);
        For i:=1 to n do Read(f,A[i]);
        d:=0;

        For i:=1 to n do
                If hh(A[i]) then inc(d);

        If d<>0 then
                For i:=1 to n do
                Begin
                        If hh(A[i]) then
                        Begin
                                Write(g,A[i],' ',i);
                                Writeln(g);
                        End;
                End;

        If d=0 then Write(g,'0');
        Close(f);
        Close(g);
End.