Código Delphi [-] var aux : Double; begin aux := 3860/3600; showmessage(FloatToStr(aux)); end;
var aux : Double; begin aux := 3860/3600; showmessage(FloatToStr(aux)); end;