Для целого числа 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.