const
  n = 20; //кол-во учеников
  m = 12;//кол-во предметов

begin
  var arr: array [1..n, 1..m] of integer;
  var ave: array [1..n] of real;
  var average := 0.0;

  for var i := 1 to n do
  begin
    ave[i] := 0;
    for var j := 1 to m do
    begin
      arr[i, j] := Random(4) + 2;
      ave[i] += arr[i, j] / m;
      average += arr[i, j] / (n * m);
      Write(arr[i, j]:3);
    end;
    WriteLn('   ->   ', ave[i]:0:2);
  end;
  WriteLn('Ср. арифметич. класса: ', average:0:2);
  WriteLn('Номера учеников, у которых средняя оценка выше средней по классу:');
  for var i := 1 to n do if ave[i] > average then Write(ave[i]:0:2, #32);
  WriteLn;
end.