CAUDO Pascal

var     b:array[0..1000] of longint;
        n,s,n1,i,k:longint;

procedure nhap;
begin
        readln(n);
        k:=0;
        while n>0 do
        begin
                s:=n mod 2;
                n:=n div 2;
                inc(k);
                b[k]:=s;
        end;
end;
procedure giai;
begin
        if k>5 then
        begin
                for i:=k downto 1 do
                begin
                        if b[i]=1 then
                                write('A')
                        else
                                write('O');
                end;
        end
        else
        begin
                for i:=5 downto 1 do
                begin
                        if b[i]=1 then
                                write('A')
                        else
                                write('O');
                end;
        end;
end;
begin
        assign(input,'CAUDO.inp');reset(input);
        assign(output,'CAUDO.out');rewrite(output);
        nhap;
        giai;
end.