Question

Ввести цифру и определить ее словесное обозначение: «один» (1), «девять» (9).Помогите пожалуйста ​

Answer 1

var nums: array [1..9] of string := (

       'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять'

);

n: integer;

begin

       repeat

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

               readln(n);

       until (n >= 0) and (n <= 9);

       writeln(nums[n]);

end.