uses crt;
var
a,b,c :integer;
x: text;
begin
a:=0;
b:=0;
c:=0;
assign(x,'list.txt');
rewrite(x);
repeat
c:=c+1;
if c=10 then begin
c:=0;
b:=b+1;
end;
if b=10 then begin
c:=0;
b:=0;
a:=a+1;
end;
writeln(x,a,b,c);
until (a=9) and (b=9) and (c=9);
close(x);
end.

uses crt;
const
     sym1: array [1..12] of char=('A','B','E','K','M','H','O','P','C','T','Y','X');
     sym2: array [1..12] of char=('A','B','E','K','M','H','O','P','C','T','Y','X');
var
i,j: byte;
x: text;
begin
Assign(x,'list.txt');
Rewrite(x);
for i:=1 to 12 do
    for j:=1 to 12 do begin
    Writeln(x,sym1[i],sym2[j]);
    end;
Close(x);
Readln;
end.

uses crt;
const
     sym1: array [1..12] of char=('A','B','E','K','M','H','O','P','C','T','U','X');
     sym2: array [1..12] of char=('A','B','E','K','M','H','O','P','C','T','U','X');
     sym3: array [1..12] of char=('A','B','E','K','M','H','O','P','C','T','U','X');
var
a: integer;
i,j,f: byte;
x: text;
begin
Assign(x,'list.txt');
Rewrite(x);
for i:=1 to 12 do
    for j:=1 to 12 do begin
    for f:=1 to 12 do begin
    for a:=0 to 999 do
    if (a < 10) then writeln(x,sym1[i],'00',a,sym2[j],sym3[f]) else
    if (a < 100) then writeln(x,sym1[i],'0',a,sym2[j],sym3[f]) else
    if (a < 1000) then writeln(x,sym1[i],a,sym2[j],sym3[f]);    
    end;
    end;
Close(x);
Readln;
end.