HRAshton Var  yo: integer;
begin
  readln(yo);
  writeln(yo, (yo mod 10 = 0) or (yo mod 10 >= 5) ? ' лет' : (yo mod 10 = 1 ? ' год' : ' года'));
end.
Не бойтесь тернаров