С клавиатуры вводится натуральное число, не превосходящее 1000. Представить его в виде соответствующей словесной записи в паскале

Предыдущий
вопрос Следующий
вопрос

program NumToWord;

var
num: integer;

begin
writeln('Введите натуральное число:');
readln(num);

case num of
1: writeln('Один');
2: writeln('Два');
3: writeln('Три');
4: writeln('Четыре');
5: writeln('Пять');
6: writeln('Шесть');
7: writeln('Семь');
8: writeln('Восемь');
9: writeln('Девять');
10: writeln('Десять');
11: writeln('Одиннадцать');
12: writeln('Двенадцать');
13: writeln('Тринадцать');
14: writeln('Четырнадцать');
15: writeln('Пятнадцать');
16: writeln('Шестнадцать');
17: writeln('Семнадцать');
18: writeln('Восемнадцать');
19: writeln('Девятнадцать');
20: writeln('Двадцать');
30: writeln('Тридцать');
40: writeln('Сорок');
50: writeln('Пятьдесят');
60: writeln('Шестьдесят');
70: writeln('Семьдесят');
80: writeln('Восемьдесят');
90: writeln('Девяносто');
100: writeln('Сто');
200: writeln('Двести');
300: writeln('Триста');
400: writeln('Четыреста');
500: writeln('Пятьсот');
600: writeln('Шестьсот');
700: writeln('Семьсот');
800: writeln('Восемьсот');
900: writeln('Девятьсот');
else writeln('Число не входит в пределы от 1 до 1000');
end;
readln;

end.