program OGOGO;

var
  n: 0..999;
  a, b, c: 0..9;

begin
  
  writeln('введите целое число от 0 до 999');
  readln(n);
  if (n < 0) or (n > 999) then 
    writeln('error!')
  else
  begin
    if n < 10 then
      case n of
        0: writeln('ноль');
        1: writeln('один');
        2: writeln('два');
        3: writeln('три');
        4: writeln('четыре');
        5: writeln('пять');
        6: writeln('шесть');
        7: writeln('семь');
        8: writeln('восемь');
        9: writeln('девять');
      end
    else
    if (n >= 10) and (n <= 99) then
    begin
      if (n >= 11) and (n <= 19) then
        case n of
          11: writeln('одиннадцать');
          12: writeln('двенадцать');
          13: writeln('тринадцать');
          14: writeln('четырнадцать');
          15: writeln('пятнадцать');
          16: writeln('шестнадцать');
          17: writeln('семнадцать');
          18: writeln('восемнадцать');
          19: writeln('девятнадцать');
        end
          else
      begin
        a := n mod 10; //единицы
        b := n div 10; //десятки
        case b of
          1: writeln('десять');
          2: writeln('двадцать');
          3: writeln('тридцать');
          4: writeln('сорок');
          5: writeln('пятьдесят');
          6: writeln('шестьдесят');
          7: writeln('семьдесят');
          8: writeln('восемьдесят');
          9: writeln('девяносто');
        end;
        case a of
          1: writeln('один');
          2: writeln('два');
          3: writeln('три');
          4: writeln('четыре');
          5: writeln('пять');
          6: writeln('шесть');
          7: writeln('семь');
          8: writeln('восемь');
          9: writeln('девять');
        end;
      end; //Здесь!
    end;  //И здесь!
    if (n >= 100) and (n <= 999) then
    begin
      a := n mod 10; //единицы
      b := (n div 10) mod 10; //десятки,  тут было не правильное выражение!
      c := n div 100; //сотни
      case c of
        1: writeln('сто');
        2: writeln('двести');
        3: writeln('триста');
        4: writeln('четыреста');
        5: writeln('пятьсот');
        6: writeln('шестьсот');
        7: writeln('семьсот');
        8: writeln('восемьсот');
        9: writeln('девятьсот');
      end;
      case b of
        1: writeln('десять');
        2: writeln('двадцать');
        3: writeln('тридцать');
        4: writeln('сорок');
        5: writeln('пятьдесят');
        6: writeln('шестьдесят');
        7: writeln('семьдесят');
        8: writeln('восемьдесят');
        9: writeln('девяносто');
      end;
      case a of
        1: writeln('один');
        2: writeln('два');
        3: writeln('три');
        4: writeln('четыре');
        5: writeln('пять');
        6: writeln('шесть');
        7: writeln('семь');
        8: writeln('восемь');
        9: writeln('девять');
      end;
    end;
  end;
  //end;  Не в том месте!
  //end;  Не в том месте!
  
end.