uses crt;
var d:text; n,i,tong,m,t:longint;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,n);
   close(d);
   assign(d,'output.pas');rewrite(d);
      t:=1; m:=1;
      while tong<=n do begin t:=t*2; inc(m); inc(tong,t); end;
      If t<16 then begin t:=16; m:=5; end;
      for i:=m downto 1 do
         begin
            if n-t>=0 then begin n:=n-t; write(d,'A '); end else write(d,'O ');
            t:=t div 2;
         end;
   close(d);
end.

Cách làm:

B1. Mình xác định giá trị cao nhất

Vd 100 giá trị cao nhất là 64;

Có số đó là do mình nhận ra trong đề: Số ở trước bằng số đó nhân với 2; Tạm thời mình gọi dãy này là a.

 +Chạy cho đến khi có tổng các số trong dãy a > hoặc = N: t:=t*2. inc(m). tăng(tổng)

 +Nếu m<5 thì m=5 rồi t=2 mủ 4; vì tối thiểu là 5 chữ cái.

B2. chạy từ m tới 1 

+thấy cái nào mà n - cho nó >=0 thì chọn và ghi A, lấy n-cho nó, không thì ghi O.

+t=t div 2 mình không tạo ra dãy a vì như vậy chương trình  sẽ dài nên mình làm vậy thay cho dãy;

Chú thích: m:số lượng kí tự trong a;  t giá trị lớ nhất (giá trị của ký tự đầu trong cấu đố))