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