Рассмотрим вариант решения задания из учебника Босова, Босова, Бондарева 8 класс, Просвещение: ВАРИАНТ 2 Создайте программу, которая для введённого целого числа k (от 1 до 99) выводит фразу «Мне k лет», где k — введённое число, заменяя в нужных случаях слово «лет» словом «год» или «года». Например, при k = 70 должно быть выведено «Мне 70 лет», при k = 15 — «Мне 15 лет», при k = 23 — «Мне 23 года» и т. п. Определяется по последней цифре. Если 1 то «год», если от 2 до 4 то «года», если 0 или от 5 до 9 то «лет». Исключение от 12 до 14 надо писать «лет». Удобно использовать множественный выбор. var k: integer; begin write('Введи возраст: '); readln(k); if (k > = 12) and (k < = 14) then writeln('Мне ', k, ' лет') else case k mod 10 of 1: writeln('Мне ', k, ' год'); 2..4: writeln('Мне ', k, ' года'); 0,5..9: writeln('Мне ', k, ' лет'); end; end. Окно вывода: Введи возраст: 70 Мне 70 лет Введи возраст: 23 Мне 23 года Введи возраст: 51 Мне 51 год
