Даны a и b целые числа написать программу расчета a0 то c=ab хелп 20

Это рекурсивный вызов процедуры.   при первом вызове f(7)   по условию  if n> 1 then   будет вызов этой же процедуры     f(n div 2);   или   f(3),   далее,   т.к. 3> 1,   то снова будет вызвана процедура   f(3 div 2)   или f(1),   теперь не выполняется условие   n> 1,   следовательно, будет выполнен оператор       write ('**');   -   напечатаются две звездочки, после выхода из процедуры продолжится выполнение процедуры при втором вызове - будут напечатаны еще 2 звездочки, затем продолжится выполнение при первом вызове - еще будут напечатаны 2 звездочки.   в результате вызова f(7) будут напечатаны 6 звездочек   ******.

На паскале что то вроде такого: uses graphabc; var sum, sum_chetn, sum_nechetn : integer; b: array [1..10] of integer; begin for var i : = 0 to 10 do begin sum : =sum + b[i]; //сумма всех элементов if (i mod 2 =0) then begin sum_chetn : = sum_chetn + b[i]; //сумма всех четных элементов end else begin sum_nechetn : = sum_nechetn + b[i]; //сумма всех нечетных элементов end; end; println('сумма всех элементов: '); println(sum); println('сумма всех четных элементов: '); println(sum_chetn); println('сумма всех нечетных элементов: '); println(sum_nechetn); end.