1. Определите, сколько учеников из округа "B", которые проходили тестирование по обществознанию, набрали более 500 баллов. ответ запишите в ячейку H2 таблицы.
2. Найдите средний тестовый балл учеников из округа "B", которые проходили тестирование по обществознанию. ответ запишите в ячейку H3 таблицы с точностью не менее двух знаков после запятой.
Всего в таблице 1001 ученик. Мне нужны лишь формулы для решения этих задач. Буду очень благодарна! ​

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

в клетке а1 - 8

              а2 - 80

              а3 - 72

              в1 - 20

              в2 - 2 

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.