This data type represents an 8-byte floating-point value whose range is +/-1.7E308 with at least 15 digits of precision.
dcltrans
transaction TMain
var
fValue1, fValue2, fValue3: float;
begin
fValue1 := -99.9;
fValue3 := (fValue2 / fValue1 + 10.7) * 3.99;
end TMain;