10 учеников проходили тестирование по 5 темам какого либо предмета.Вычислить суммарный(по всем темам)средний балл,полученный учениками.Сколько учеников имеют суммарный балл ниже среднего ?

Я уже сделал на паскале.... Ладно пусть будет... var a: array[1..10] of integer; i,j,k,sum,d:integer; h:real; begin d:=0;     for i:=1 to 10 do         for j:=1 to 5 do             begin                 readln(a[j]);                 if j=5 then                     begin                     sum:=0;                         for k:=1 to 5 do                             sum:=sum+a[j];                     h:=sum/5;                     writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2                     if h<7 then inc(d)                     end;             end;     write(d, ' учеников - имеют средний балл ниже среднего'); end. Эксель скинул