вычислите средний показатель успеваемости по учебным предметам и уровень знаний каждого учащегося для определения показателей необходимо ввести исходный данные в таблицу (фото) далее установить курсор в ячейки B10 и выполнить команду формулы вставить функцию​

1)
var a: array [1..40] of integer;
    i, s1, s2: integer;
begin
     for i := 1 to 40 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (a[i] mod 2 = 1) then
          begin
               s1 := s1 + a[i];
               inc(s2);
          end;
     end;
     writeln(s1 / s2);
end.

2)
var a: array [1..40] of integer;
    i, q: integer;
begin
     for i := 1 to 40 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (a[i] <= 10) then q := q + a[i];
     end;
     writeln(q);
end.

3)
var a: array [1..40] of integer;
    i, w: integer;
begin
     for i := 1 to 40 do
     begin
          a[i] := random(20);
          writeln('a[', i, '] => ', a[i]);
          if (a[i] mod 3 = 0) then w := w + a[i];
     end;
     writeln(w);
end.