Модифицируйте программу таким образом, чтобы она выводила название чисел в диапазоне от 1 до 99 (ну кассовый аппарат же это делает на чеках!). Подсказка №1. Для выделения числа десятков используйте хорошо знакомую вам операцию «остаток от деления». Т.е., если в переменнойn находится введенное число, то получить число десятков очень просто –d:=n mod 10; Подсказка №2. Надо рассмотреть по сути три диапазона чисел: от 1 до 9, от 10 до 19, и от 20 до 99.

var n:integer;a:array[1..27] of string[15]= ('один','два','три','четыре','пять','шесть','семь','восемь','девять',  'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',  'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',   'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',  'восемьдесят','девяносто');beginwrite('N (1..99) = ');readln(N);if (n>=1)and(n<=19)  then writeln(a[n])  else begin        write(a[n div 10 + 18]);       if n mod 10 <> 0 then write(' ',a[n mod 10]);       writeln;       end;end. Пример:N (1..99) = 46сорок шесть