Дано целое число N. (N<100), определяющее возраст человека (в годах). Определить подпрограмму, дающую для этого числа наименования "год", "года" или "лет": например 1 год, 23 года, 45 лет и т.д.

program let;
uses crt;
var n,x:integer;
begin
clrscr;
writeln('сколько вам лет?');
readln(x);
case x of
1:writeln('год');
2,3,4:writeln('года');
5..20,30,40,50,60,70,80,90,99:writeln('лет');
 
end;
 
end.

автор: kommunist