Function ChoiceQuanTiTy(X, Y: Integer): Integer; stdcall;

begin

if X < Y then ChoiceQuanTiTy := X else ChoiceQuanTiTy := Y;

end;

Function Total(X, Y: Integer): Integer; stdcall;

begin

x := ChoiceQuanTiTy(x,y) ;

Total := x + y ;

end;

exports

Total,

ChoiceQuanTiTy ;

begin

end.

Regards, Geo