Задание очень срочное!!! Нужно до 22.00 05.11.2015!!! Написать программу, которая...

Question

Задание очень срочное!!! Нужно до 22.00 05.11.2015!!!
Написать программу, которая заменяет цифру числа названием этой цифры.
Например, заменить число 4563 на строку четыре пять шесть три.
ПАСКАЛЬ!!!

Answer 1

Var
  n: integer;
  answer: string;
 
begin
  read(n);
  while n > 0 do {Пока есть цифры добавляем последнюю цифру числа к ответу и отбрасываем ее}
  begin
    case n mod 10 of
      0: answer := 'ноль ' + answer;
      1: answer := 'один ' + answer;
      2: answer := 'два ' + answer;
      3: answer := 'три ' + answer;
      4: answer := 'четыре ' + answer;
      5: answer := 'пять ' + answer;
      6: answer := 'шесть ' + answer;
      7: answer := 'семь ' + answer;
      8: answer := 'восемь ' + answer;
      9: answer := 'девять ' + answer;
    end;
    n := n div 10;
  end;
  writeln(answer);
end.