var

  c:integer;

begin

  write('Введите цифру '); readln(c);

  case c of

    0: writeln('Ноль');

    1: writeln('Один');

    2: writeln('Два');

    3: writeln('Три');

    4: writeln('Четыре');

    5: writeln('Пять');

    6: writeln('Шесть');

    7: writeln('Семь');

    8: writeln('Восемь');

    9: writeln('Девять');

  end;

end.

Так что ли?