Uses crt;
Var
    a,b:array[1..1000] of integer;
    n,i,j,m,kt: integer;
Begin
    clrscr;
    readln(n);
    for i:=1 to n do
        read(a[i]);
    m:=0; b[1]:=0;
    for i:=1 to n do
        begin
        kt:=0;
        if a[i]=1 then kt:=1 else
        for j:=2 to a[i]-1 do
            if a[i] mod j=0 then kt:=1;
        if kt=0 then
            begin
            m:=m+1;
            b[m]:=a[i];
            end;
        end;
    write('a. ');
    for i:=1 to m do write(b[i],' ');
    writeln;
    write('b. ');
    for i:=1 to m do if b[i]>n then
        begin
        for j:=i to m do b[j]:=b[j+1];
        m:=m-1;
        end;
    for i:=1 to m do write(b[i],' ');
    readln;
End.