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

(используя if,then,else)

var n:integer;begin readln(n); if (n mod 10 =1) and (n<>11) then             writeln(n,' год') else              if (n>=5) and (n<=20) then                          writeln(n,' лет')              else                         if (n mod 10<=4) and (n mod 10>0) then                                   writeln(n,' года')                          else                                   writeln(n,' лет');end.