program Rec7;
{ recursive multiply function example          }
{ exemplo de funcao de multiplicacao recursiva }
{ Turbo Pascal 7 source        }
{ Free Pascal Source           }
{ Delphi Source                }
{ Joao Paulo Schwarz Schuler   }
{ http://www.schulers.com/jpss }


function RMul(X,Y:word):word;
begin

if X=0
   then RMul:=0
   else RMul:=Y+RMul(X-1,Y);

end;

begin
Writeln(RMul(0,0));     { 0  }
Writeln(RMul(1,1));     { 1  }
Writeln(RMul(5,10));    { 50 }
Writeln(RMul(50,1));    { 50 }
Writeln(RMul(50,0));    { 0  }

end.