program Age;

var
age: integer;
begin
writeln${}^{\prime }Введитевозраст{:}^{\prime }$;
readln$age$;

if $agemod10=1$ and (age <> 11) then
writeln${}^{\prime }Ва{м}^{\prime },age{,}^{\prime }год{.}^{\prime }$;
else if $agemod10=2$ or $agemod10=3$ or $agemod10=4$ then
writeln${}^{\prime }Ва{м}^{\prime },age{,}^{\prime }года{.}^{\prime }$;
else
writeln${}^{\prime }Ва{м}^{\prime },age{,}^{\prime }лет{.}^{\prime }$;
end.