{ Simulation der Multiplikation durch die Addition - Rekursiv }
{ Autor: Dipl.-Ing. Thomas Speiser                            }
{ Source from: http://Codes.TurboTools.de                     }

uses Crt;
{$S-}
var a,b: integer;

function rekursion(ax,bx:integer): integer;
begin
if (ax < = 0) or (bx < = 0) then begin ax:=0; bx:=0; rekursion:=ax+bx end else
rekursion:=ax+rekursion(ax,bx-1)
end;

begin
ClrScr;
writeLN('A und B eingeben!');
readLN(a);
readLN(b);
write('Multipliktation = ',rekursion(a,b));
readLN;
end.