var
  massa: array [1..30] of real;
  i, n: integer;
  sum: real;

begin
  Write('Сколько учеников в подгруппе? ');
  Readln(n);
  Writeln('Введите вес учеников');
  for i := 1 to n do 
  begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
  
  Writeln('Средий вес ученика подгруппы: ', sum / n);
end.