Для целого числа K от 1 до 99 напечатать фразу "Мне k лет", учитывая при этом, что при некоторых значениях K слово "лет" надо заменить на слово "год" или "года". Например, 11 лет, 22 года, 51 год.

интересная задачка)var i,n :integer;begin n:=99; for i:=1 to n do begin      case i of       11..14 :writeln('мне ',i,' лет');        else           case i mod 10 of         1:writeln('мне ',i,' год');         2..4:writeln('мне ',i,' года');        else          writeln('мне ',i,' лет');           end;      end; end;end.