function Declension(x: byte): string;
begin
  if x in [11..14] then Result := 'лет'
  else
    case x mod 10 of
      1: Result := 'год';
      2..4: Result := 'года';
      0, 5..9: Result := 'лет';
    end;
end;