Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 21 год, 22 года, 12 лет

procedure Age(n: integer); var   m: integer;   s: string; begin   if ((n >= 11) and (n <= 20)) or ((n >= 111) and (n <= 120)) then s := 'лет'   else begin     m := n mod 10;     case m of       1: s := 'год';       2..4: s := 'года';     else s := 'лет'     end   end;   Writeln('Возраст равен ', n, ' ', s) end;