По черным ящиком (lack box) понимается модуль, алгоритм работы которого неизвестен, соответственно можно только построить алгоритм работы с ним.
Передать исходные данные > получить обработанные данные
На скрине всё видно, ну а вообще среднее значение - это сумма чисел делённая на их количество, тогда получается (1+4)/2=2,5
162 mb/3*60sec = x/360
162/3/60= 0,9
360 * 0,9 = 400
Как то так
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.