Дать для числа наименования ”год", ”года", ”лет" - Pascal ABC

Формулировка задачи:

Дано натуральное число (n100), определяющее возраст человека (в годах). Дать для этого числа наименования ”год", ”года", ”лет".

Решение задачи: «Дать для числа наименования ”год", ”года", ”лет"»

Листинг программы

var n:byte;
    s,g:string;
begin
repeat
write('Введите возраст от 1 до 100 n=');
readln(n);
until n in [1..100];
s:='Мне ';
str(n,g);
case n of
10..20,30,40,100:s:=s+g+' лет';
else
 case n mod 10 of
 1:s:=s+g+' год';
 2..4:s:=s+g+' года';
 else s:=s+g+' лет';
 end;
end;
write(s);
end.

Объяснение кода листинга программы

Переменная n типа byte используется для хранения введенного пользователем возраста.
Переменные s и g типа string используются для хранения строк, содержащих предложения для обращения к пользователю.
В цикле repeat-until запрашивается у пользователя ввести возраст от 1 до 100, и это значение сохраняется в переменной n.
После ввода значения n, строки s и g инициализируются соответствующим образом.
В случае, если введенный возраст находится в диапазоне от 10 до 20, от 30 до 40 или от 100, строка s изменяется таким образом, чтобы включить слово лет.
Если введенный возраст не попадает ни в один из этих диапазонов, то в зависимости от остатка от деления n на 10, строка s изменяется таким образом, чтобы включить слово год (если n делится на 10 без остатка), года (если n делится на 10, но не на 100) или лет (в остальных случаях).
Наконец, выводится полученная строка s.