Вычислить произведение четырех натур.чисел, используя только операцию сложения. (язык пр: pascal) 1) написать программу (обычную) 2) написать программу с использованием процедуры 3) написать программу с исп. функции 4) написать программу с исп. рекурсивной процедуры 5) написать программу с исп. рекурсивной функции

Function pr(a, b:integer):integer;   var tmp:integer;begin     if b = 1 then pr := a     else     begin          tmp := pr(a, b shr 1);          inc(tmp, tmp);          if b and 1 = 1 then inc(tmp, a);          pr := tmp;     end;end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)