Uses CRT;
label
 Exit;
const
 sot : array [1..9] of string =
     ('CTO','DBECTu','TPuCTO',
      '4ETbIPECTO','I79|TbCOT','IIIECTbCOT',
      'CEMbCOT','BOCEMbCOT','DEB9|TbCOT');
var
 crow : string[7];
 k    : array [0..6] of string;
 xk   : array [1..4] of string;
 ak   : array [1..4] of string;
{============================}
Function get_words(digits: string): string;
const
 razrad : array [0..2, 1..9] of string = (
        ('ODHA','DBE','TPu','4ETbIPE','I79|Tb','IIIECTb','CEMb','BOCEMb','DEB9|Tb'),
        ('ODuHADUATb','DBEHADUATb','TPuHADUATb',
         '4ETbIPHADUATb','I79|THADUATb','IIIECTHADUATb',
         'CEMHADUATb','BOCEMHADUATb','DEB9|THADUATb'),
        ('DEC9|Tb','DBADUATb','TPuDUATb','COPOK','I79|TbDEC9IT','IIIECTbDEC9|T','CEMbDEC9|T','BOCEMbDEC9|T','DEB9IHOCTO'));
var
 ch, error : integer;
 func_out  : string;
 x, y      : integer;
begin
 Val(digits, ch, error);
 if (ch<>0) then begin
  if ch<10 then
   func_out :=  razrad[0, ch]
  else if ch<20 then
   func_out := razrad[1, ch-10]
  else begin
   Val(digits[1], x, error);
   Val(digits[2], y, error);
   if y<>0 then
    func_out := razrad[2, x]+' '+razrad[0, y]
   else
    func_out := razrad[2, x]
  end;
  if ch=10 then
   func_out := razrad[2, ch-9];
 end else
  func_out := '';
 get_words := func_out;
end;
{============================}

{============================}
var
 check : longint;
 i, j, error : integer;
begin
 ClrScr;
 Write('Input your number of crowns -- ');
 ReadLn(check);
 if check>1000000 then begin
  WriteLn('WRONG NUMBER!');
  goto Exit;
 end else if check=1000000 then begin
  WriteLn('JIETEJO MuMO ODuH MuJIJIuOH BOPOH');
  goto Exit;
 end else begin
  Str(check:7, crow);
  k[0] := crow[7];
  k[1] := crow[6];
  k[2] := crow[5];
  k[3] := crow[4];
  k[4] := crow[3];
  k[5] := crow[2];
  k[6] := crow[1];
  WriteLn('');
{to decimal digits}
  xk[1] := k[1]+k[0];
  xk[2] := k[2];
  xk[3] := k[4]+k[3];
  xk[4] := k[5];
{to strings}
  if (xk[4] <> '') then begin
   Val(xk[4], j, error);
   ak[4] := sot[j]
  end else
   ak[4] := '';
  ak[3] := get_words(xk[3]);
  Val(k[3], j, error);
  if ak[3]<>'' then if j<5 then
   ak[3] := ak[3]+' TbIC9|4u'
  else
   ak[3] := ak[3]+' TbIC9|4';
  if (xk[2] <> '') then begin
   Val(xk[2], j, error);
   ak[2] := sot[j]
  end else
   ak[2] := '';
  ak[1] := get_words(xk[1]);
  Val(k[0], j, error);
  Val(k[1]+k[0], i, error);
  if (j<5) and ((i<10>20)) then
   ak[1] := ak[1]+' BOPOHb|'
  else
   ak[1] := ak[1]+' BOPOH';
  WriteLn('');
  WriteLn(' JIETEJO MuMO ', ak[4],' ',ak[3],' ',ak[2],' ',ak[1]);
 end;
Exit:
 WriteLn('---------------------------');
 WriteLn(' Codded by PA3UJIb (kain@mosk.ru) (c)');
 WriteLn('[Press any key to continue]');
 repeat until KeyPressed;
end.