Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год","года" или "лет".

Program v;

var

age : Integer;

begin

WriteLn ('Возраст: '); ReadLn (age);

Write ('Вам ', age, ' ');

if age=11 then WriteLn ('лет');

if age=12 then WriteLn ('лет');

if age=13 then WriteLn ('лет');

if age=14 then WriteLn ('лет');

if age mod 10=1 then WriteLn ('год');

if age mod 10=2 then WriteLn ('года');

if age mod 10=3 then WriteLn ('года');

if age mod 10=4 then WriteLn ('года');

if age mod 10=5 then WriteLn ('лет');

if age mod 10=6 then WriteLn ('лет');

if age mod 10=7 then WriteLn ('лет');

if age mod 10=8 then WriteLn ('лет');

if age mod 10=9 then WriteLn ('лет');

if age mod 10=0 then WriteLn ('лет');

end.