Возраст человека - Pascal

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

Ввести возраст человека (от 1 до 150) и вывести его с последующими словом "год", "года" или "лет". Пример: Введите возраст: 24..66 Вам 24 года .. Вам 66 лет

Решение задачи: «Возраст человека»

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

var
  age : Integer;
begin
  WriteLn('Возраст: '); ReadLn(age);
  Write('Вам ', age, #32);
  if age mod 100 in [11..19] then WriteLn('лет')
  else case age mod 10 of
    1 : WriteLn('год');
    2, 3, 4 : WriteLn('года');
  else
    WriteLn('лет');
  end;
end.

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

Создается переменная age типа Integer
Пользователю выводится запрос на ввод возраста с помощью функции WriteLn с текстом Возраст:, и затем происходит чтение значения возраста с помощью функции ReadLn, и это значение сохраняется в переменной age
Выводится текст Вам и значение переменной age, после чего...
... происходит проверка возраста на остаток от деления на 100, и если остаток входит в диапазон от 11 до 19 включительно, то выводится текст лет
Иначе, если остаток от деления возраста на 10 равен 1, то выводится текст год
Иначе, если остаток от деления возраста на 10 равен 2, 3 или 4, то выводится текст года
Во всех остальных случаях выводится лет Этот код описывает программу, которая просит пользователя ввести возраст и в зависимости от возраста правильно выводит соответствующее сообщение о возрасте.