Составить программу на Паскале, которая зависит от введенных данных, определяет принадлежность человека к определенной группе: от 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.

Объяснение: