Szukam odpowiedzi na pytanie.. [zaliczenie??]

Witam!
Zapoznalem sie juz z definicja rekurencj i iteracji ale jeszcze musze odpowiedziec na nastepujace pytanie "Przyklady definicji rekurencyjnych i iteracyjnych (Podpowiedz: silnia, ciąg Fibonacciego). Spróbuj zdefiniowac w sposob rekurencyjny mnozenie dwoch liczb naturalnych A i B"...jesli moze mi ktos podac przyklady i zdefiniowac problem to bylbym bardzo wdzieczny...z gory dziekuje i pozdrawiam [cya]

Silnia rekurencyjnie :

function silnia(x:integer):longint;
 begin
   if (x = 1) then result:=1
    else result:=x*silnia(x-1);
end;

Mnożenie rekurencyjnie :

function mnozenie(a,b:integer):longint;
 begin
  if b = 1 then result:=a 
    else result:=a + mnozenie(a,b - 1);
end;

Silnia interacyjnie :

function silnia(x:integer):longint;
var i :integer;
 begin
  result:=1;
  if x > 1 then 
     for i := 1 to x do 
      result:=result * i;
end;

Mnozenie interacyjnie :

function mnozenie(a,b:integer):longint;
var i:integer;
 begin
   result:=0;
   if (a <> 0) and (b <> 0) then
    for i:=1 to a do
     result:=result + b;
end;

dziekuje bardzo za pomoc [hurra] !!!!!