var
  x: integer;
  s: string;
  t: array[1..3, 0..9] of string;

begin
  t[1, 0] := '';
  t[1, 1] := 'сто ';
  t[1, 2] := 'двести ';
  t[1, 3] := 'триста ';
  t[1, 4] := 'четыреста ';
  t[1, 5] := 'пятьсот ';
  t[1, 6] := 'шестьсот ';
  t[1, 7] := 'семьсот ';
  t[1, 8] := 'восемьсот ';
  t[1, 9] := 'девятсот ';
  
  t[2, 0] := '';
  t[2, 1] := '';
  t[2, 2] := 'двадцать ';
  t[2, 3] := 'тридцать ';
  t[2, 4] := 'сорок ';
  t[2, 5] := 'пятьдесят ';
  t[2, 6] := 'шестьдесят ';
  t[2, 7] := 'семьдесят ';
  t[2, 8] := 'восемьдесят ';
  t[2, 9] := 'девяносто ';
  
  t[3, 0] := '';
  t[3, 1] := 'один';
  t[3, 2] := 'два';
  t[3, 3] := 'три';
  t[3, 4] := 'четыре';
  t[3, 5] := 'пять';
  t[3, 6] := 'шесть';
  t[3, 7] := 'семь';
  t[3, 8] := 'восемь';
  t[3, 9] := 'девять';
  
  write('Введте число: ');
  readln(x);
  if x > 0 then
  begin
    s := t[1, x div 100]; 
    x := x mod 100;
    s := s + t[2, x div 10];
    if (x < 20) and (x > 9) then
    begin
      case x of
        10: s := s + 'десять';
        11: s := s + 'одинадцать';
        12: s := s + 'двенадцать';
        13: s := s + 'тринадцать';
        14: s := s + 'четырнадцать';
        15: s := s + 'пятнадцать';
        16: s := s + 'шестнадцать';
        17: s := s + 'семнадцать';
        18: s := s + 'восемнадцать';
        19: s := s + 'девятнадцать';
      end
    end
      else
    begin
      x := x mod 10;
      s := s + t[3, x ];
    end;
  end
  else
    s := 'ноль';
  writeln(s);
end.