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

var a,b:integer;
begin
readln(a);
b:=a mod 10;
if ((a>=10) and (a<21)) then begin  write('Мне ' ,a,' лет');exit;end;
case b of
0: write('Мне ' ,a,' лет');
1:   write('Мне ' ,a,' год');
2..4: write('Мне ' ,a,' года');
5..9: write('Мне ' ,a,' лет');
end;
end.