program Przelicz_liczby_na_wyrazy;

{Program literuje liczby od 0-999}
var i,k,x:integer;
var t:array[1..3] of integer;
var S:array[1..10] of string;
var D:array[1..10] of string;
var J:array[1..20] of string;

begin
  S[1]:='';
  S[2]:='sto';
  S[3]:='dwiescie';
  S[4]:='trzysta';
  S[5]:='czterysta';
  S[6]:='piecset';
  S[7]:='szescset';
  S[8]:='siedemset';
  S[9]:='osiemset';
  S[10]:='dziewiecset';

  D[1]:='';
  D[2]:='';
  D[3]:='dwadziescia';
  D[4]:='trzydziesci';
  D[5]:='czterdziesci';
  D[6]:='piecdziesiat';
  D[7]:='szescdziesiat';
  D[8]:='siedemdziesiat';
  D[9]:='osiemdziesiat';
  D[10]:='dziewiecdziesiat';

  J[1]:='';
  J[2]:='jeden';
  J[3]:='dwa';
  J[4]:='trzy';
  J[5]:='cztery';
  J[6]:='piec';
  J[7]:='szesc';
  J[8]:='siedem';
  J[9]:='osiem';
  J[10]:='dziewiec';
  J[11]:='dziesiec';
  J[12]:='jedenascie';
  J[13]:='dwanascie';
  J[14]:='trzynascie';
  J[15]:='czternascie';
  J[16]:='pietnascie';
  J[17]:='szesnascie';
  J[18]:='siedemnascie';
  J[19]:='osiemnascie';
  J[20]:='dziewietnascie';

  writeln('Podaj liczbe:');
  readln(x);
  if x=0 then
  begin
    writeln('zero');
  end;
  k:=1; {wpisanie do tabeli t[k] wczytanej liczby x}
  i:=100; 
  while (i>=1) do
  begin
    t[k]:=(x div i) mod 10;
    i:=i div 10;
    k:=k+1;
  end;
  if t[2]=1 then {wypisywanie wyniku}
  begin
    writeln(S[t[1]+1],' ',J[11+t[3]]); {do 19 wlacznie}
  end
  else
  begin
    writeln(S[t[1]+1],' ',D[t[2]+1],' ',J[t[3]+1]); {od 20 wlacznie} 
  end;
  readln;
end.