Program VV;
var a: integer;
begin
Writeln ('Введите число от 1 до 10');
Readln(a);
if (a = 1) then begin
writeln (a, ' год');
end;
if (a = 2) or (a = 3) or ( a = 4) then begin
writeln (a,' года');
end;
if (a = 5) or (a = 6 ) or (a = 7) or (a = 8) or (a = 9) or (a = 10) then begin
writeln (a, ' лет ');
end;
end.