Var
 N,m100,m10,m1,md:Integer;
Begin
 Repeat
  Write('N (0 to quit) = ');
  Readln(N);
  If N=0 then writeln('ноль')
  else
   begin
    md:=N mod 100;
    m1:=N mod 10;
    N:=N div 10;
    m10:=N mod 10;
    m100:=N div 10;
    Case M100 of
     1:write('сто ');
     2:write('двести ');
     3:write('триста ');
     4:write('четыреста ');
     5:write('пятьсот ');
     6:write('шестьсот ');
     7:write('семьсот ');
     8:write('восемьсот ');
     9:write('девятьсот ');
    End;
    Case M10 of
     1:Case md of
       10:write('десять');
       11:write('одиннадцать');
       12:write('двенадцть');
       13:write('тринадцать');
       14:write('четырнадцать');
       15:write('пятнадцать');
       16:write('шестнадцать');
       17:write('семнадцать');
       18:write('восемнадцать');
       19:write('девятнадцать');
      end;
     2:write('двадцать ');
     3:write('тридцать ');
     4:write('сорок ');
     5:write('пятьдесят ');
     6:write('шестьдесят ');
     7:write('семьдесят ');
     8:write('восемьдесят ');
     9:write('девяносто ');
    End;
    If m10<>1 then
     Case m1 of
      1:write('один');
      2:write('два');
      3:write('три');
      4:write('четыре');
      5:write('пять');
      6:write('шесть');
      7:write('семь');
      8:write('восемь');
      9:write('девять');
     end;
    N:=1;
    Writeln;
   end;
 Until N=0;
End.