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

Procedure Age (n: integer) ;

var

m: integer;

s: string;

begin

if ((n > = 11) and (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;