Niki™

Program CPascal;

var i:byte;

Begin
for i:=1 to 99 do Case i mod 100 of
                       11..14:Writeln('Мне '+i+' лет');
                       else Case i mod 10 of
                                 1:Writeln('Мне '+i+' год');
                                 2..4:Writeln('Мне '+i+' года');
                                 else Writeln('Мне '+i+' лет');
                            end;
                  end;
end.