Написать программу, которая бы запрашивала возраст мужчины и сообщала, сколько ему лет осталось до пенсии, либо что он уже пенсионер. Мужчины на пенсию уходят в 60 лет.

program x-2

var year:interger;

begin

writeln ('введите возвраст');

readln (year);

case year of

0 ... 10:writeln ('вы ребенок');

11 ... 15:writeln ('вы подросток');

16 ... 20:writeln ('вы юноша');

21 ... 30:writeln (('молодой человек');

end

end.