Составьте программу на языке Паскаль, которая запрашивает у пользователя сколько ему лет. Если меньше 7, то пишет «Да ты ещё ребёнок», если больше 7 , но меньше 18, пишет « Ты настоящий мужчина». Если больше 18, то «Ты мужчина в самом расцвете сил».

var age: integer;

begin

write('Сколько вам лет?');

read(age);

if (age < 7) then begin

writeln('Да ты ещё ребёнок');

end

if (age > 7) and (age < 18) then begin

writeln('Ты настоящий мужчина');

end

else begin

writeln('Ты мужчина в самом расцвете сил');

end;

end.

Объяснение: