Дано натуральное число 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.