составить программу паскаль(любую,не очень лёгкую)

var

 Year: integer;

begin

 writeln('Каков Ваш возраст?');

 write(' Year = ');

 readln(Year); { Вводим целое число лет }

 write('Мой возраст ', Year, ' года'); { Здесь выводим результат }

end.