Дано целое число в диапазоне 100-999.вывести строку -словесное описание данного числа.программа на языке паскаль

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

program NumberDescription
va
number, firstDigit, secondDigit, thirdDigit: integer
description: string
begi
writeln('Enter a number between 100 and 999: ')
readln(number)
firstDigit := number div 100
secondDigit := (number div 10) mod 10
thirdDigit := number mod 10
case firstDigit o
1: description := 'One hundred '
2: description := 'Two hundred '
3: description := 'Three hundred '
4: description := 'Four hundred '
5: description := 'Five hundred '
6: description := 'Six hundred '
7: description := 'Seven hundred '
8: description := 'Eight hundred '
9: description := 'Nine hundred '
end
case secondDigit o
0: description := description + ''
2: description := description + 'twenty '
3: description := description + 'thirty '
4: description := description + 'forty '
5: description := description + 'fifty '
6: description := description + 'sixty '
7: description := description + 'seventy '
8: description := description + 'eighty '
9: description := description + 'ninety '
end
case thirdDigit o
0: description := description + 'zero'
1: description := description + 'one'
2: description := description + 'two'
3: description := description + 'three'
4: description := description + 'four'
5: description := description + 'five'
6: description := description + 'six'
7: description := description + 'seven'
8: description := description + 'eight'
9: description := description + 'nine'
end
writeln('Description of the number: ', description)
end.