program paros_szamok_szovegesen;
uses crt;
type
 szam = array[1..4] of string;
 szamtiz = array[0..10] of string;
 szamszaz = array[0..5] of string;
var
 sz  : szam;
 sz2 : szamtiz;
 sz3 : szamszaz;


procedure ertekadas;
begin
sz[1]:='kettő';
sz[2]:='négy';
sz[3]:='hat';
sz[4]:='nyolc';
sz2[1]:='tizen';
sz2[2]:='huszon';
sz2[3]:='harminc';
sz2[4]:='negyven';
sz2[5]:='ötven';
sz2[6]:='hatvan';
sz2[7]:='hetven';
sz2[8]:='nyolcvan';
sz2[9]:='kilencven';
sz3[1]:='egyszáz';
sz3[2]:='kettőszáz';
sz3[3]:='háromszáz';
sz3[4]:='négyszáz';
sz3[5]:='ötszáz';
end;

procedure kiiratas;
var i,j,k : byte;
begin
clrscr;
textcolor(yellow); write('A kezdéshez nyomjon ENTER-t');
for i:=0 to 4 do begin
 for j:=0 to 9 do begin
 readln;
  for k:=1 to 4 do begin
 if j=0 then begin
                 if i=0 then begin writeln(sz[k]);
                                end else begin
                                 writeln(sz3[i]+sz[k]);
                                end;
                 end else begin
                            if i=0 then begin
                                            writeln(sz2[j]+sz[k]);
                                          end else begin
                                            writeln(sz3[i]+sz2[j]+sz[k]);
                                          end;
                          end;
                 end;
  if (j>1) and (i=0) then begin
                            writeln(sz2[j+1]);
                          end;
  if (j>1) and (i>0) and (j<>9) then begin
                                       writeln(sz3[i]+sz2[j+1]);
                                     end;
  if j = 9 then writeln(sz3[i+1]);
  if (i=1) and (j=0) then writeln(sz3[i]+'tíz');
  if (i=1) and (j=1) then writeln(sz3[i]+'húsz');
  if (i=2) and (j=0) then writeln(sz3[i]+'tíz');
  if (i=2) and (j=1) then writeln(sz3[i]+'húsz');
  if (i=3) and (j=0) then writeln(sz3[i]+'tíz');
  if (i=3) and (j=1) then writeln(sz3[i]+'húsz');
  if (i=4) and (j=0) then writeln(sz3[i]+'tíz');
  if (i=4) and (j=1) then writeln(sz3[i]+'húsz');
  if (j=0) and (i=0) then writeln('tíz');
  if (j=1) and (i=0) then writeln('húsz');
  end;
 end;
end;

begin
  ertekadas;
  kiiratas;
  readln;
end.