uses
 Math;

 var
 d: Double;
 e: Extended;

 begin
 d := 0;
 e := 0;

 d := Min(d, e);
 end.