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

Вот такой вариант 1-99

uses crt;
var
   i : byte;
   s : string;

begin

   clrscr;

   for i := 1 to 99 do begin
    if (i mod 10 = 1) and (i<>11) then s := 'год'
     else if (i mod 10 in [2,3,4]) and not(i div 10 = 1) then s := 'года'
      else s := 'лет';
    writeln('Мне ',i,' ' + s);
   end;


   readln

end.

klem4
Поиск для красоты? Сколько раз еще будешь одно и то же решать?

упорно выскакивает ошибка

Хы .. поиск-то не для красоты Вот только вопрос : какой ты запрос в поиске задал ?