program AgeTelling;
var k:integer;
begin
    writeln('Введите число k');
    readln(k);

   if (k>=11) and (k<=14) then
      writeln(k, 'лет')
   else if (k mod 10=1) then
      writeln(k, 'год')
   else if (k mod 10>=2) and (k mod 10<=4) then
      writeln(k, 'года')
   else
      writeln(k, 'лет');
end.