Напишите процедуру которая принимает числовой параметр-Возраст человека в годах и выводит этот возраст со словом год, года или лет. Например 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;