Поделитесь своими знаниями, ответьте на вопрос:
Составить программу на Паскале, которая зависит от введенных данных, определяет принадлежность человека к определенной группе: от 0 до 13 - мальчик; от 14 до 20 - юноша; от 21 до 70 - мужчина; более 70 - старец
var n: integer;
begin
repeat
Write('Введите Ваш возраст: '); ReadLn(n);
until n > 0;
case n of
0..13: WriteLn('Вы мальчик');
14..20: WriteLn('Вы юноша');
21..70: WriteLn('Вы мужчина');
else WriteLn('Вы старец');
end;
end.
Объяснение: