Помогите найти среднее арифметическое без делителя

Добрый день! Помогите пожалуйста найти среднее арифметическое Без использования делителя, возможно использовать сложение , вычитание и сравнение. Дано 2 положительных, целых числа.
Из лекции удалось понять, что необходимо ввести две переменных и создать цикл, путем вычитания, все расчеты нужно будет перевести в графический алгоритм

Даже интересно стало. Как найти среднее значение без деления на количество слагаемых…
По какой формуле производится расчет значения?

В задании нужно составить алгоритм блок схему, по идее нужно ввести две переменных и методом вычитания получить ответ, но как сделать нам толком не объяснили

От большего в цикле вычитать по единице пока больше меньшего, одновременно из среднего в том же цикле вычитая по 0,5. Начальное значение среднего - большее

А как это сделать на практике , мне совсем понятно, через переменную? а+б - 2 ?

Делается то в цикле.
Только пока сам не пойму как найти среднее, без делителя?

S:=A+B;
C:=0;
Max:=A;
if Max<B then Max:=B;
for i:= 0 to Max do
  begin
  C:=i;
  if C+C=S then 
   begin
   WriteLn('Среднее число=',C); 
   exit();
   end;
  if C+C>S then 
   begin
   WriteLn('Среднее число=',C-1); 
   exit();
   end;
  end;