паскаль АВС, как написать программу в паскале авс Опции

[serega10]

Дано целое число в диапазоне 20-99, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год», например: 20 — «20 лет», 32 — «32 года», 41 — «41 год».

[@nto$ka]

Нужно брать последнюю цифру. Если она 1 - год, 2,3,4 - года, а в остальных случаях лет.
Чтобы взять последнюю цифру можно, например, взять остаток от деления на 10.

[APAL]

Var Vozrast : Byte;
...
Case Vozrast mod 10 of
  1     : Write('год');
  2,3,4 : Write('года');
else Write('лет');
end;
...