program Age;

var
age: integer;

begin
writeln('Введите возраст человека: ');
readln(age);

if (age mod 10 = 1) and (age mod 100 <> 11) then
writeln('Вам ', age, ' год');
if (age mod 10 = 2) and (age mod 100 <> 12) then
writeln('Вам ', age, ' года');
if (age mod 10 = 3) and (age mod 100 <> 13) then
writeln('Вам ', age, ' года');
if (age mod 10 = 4) and (age mod 100 <> 14) then
writeln('Вам ', age, ' года');
if (age mod 10 = 5) and (age mod 100 <> 15) then
writeln('Вам ', age, ' лет');
if ((age mod 10 = 6) or (age mod 10 = 7) or (age mod 10 = 8) or (age mod 10 = 9) or (age mod 10 = 0)
or ((age mod 100) >= 11) and ((age mod 100) <= 14)) then
writeln('Вам ', age, ' лет');
end.