Функция цифру в слова

Функция цифру в слова


function DigitName(n: integer): string;
begin
  case n of
  0: Result := 'ноль';
  1: Result := 'один';
  2: Result := 'два';
  3: Result := 'три';
  4: Result := 'четыре';
  5: Result := 'пять';
  6: Result := 'шесть';
  7: Result := 'семь';
  8: Result := 'восемь';
  9: Result := 'девять';
  end;
end;
 
begin
  writeln(DigitName(3));
  writeln(DigitName(5));
  writeln(DigitName(7));
end.