case k of
  1:writeln('мне 1 год');
  2..4:writeln ('мне ',k,' года');
  5..99:writeln ('мне ',k,' лет');
end;