---

var
  age, m10, m100: integer;
begin
  write('Введите возраст: ');
  readln(age);
  
  m10 := age mod 10;   // Последняя цифра
  m100 := age mod 100; // Последние две цифры для исключений (11-14)
  
  write('Вам ', age, ' ');
  
  { Алгоритм выбора правильного слова }
  if (m100 >= 11) and (m100 <= 14) then
    writeln('лет')
  else if (m10 = 1) then
    writeln('год')
  else if (m10 >= 2) and (m10 <= 4) then
    writeln('года')
  else
    writeln('лет');
end.