Janilabo | Fraction() [SCAR Divi]

{==============================================================================]
  Explanation: Returns fraction of position into source.
[==============================================================================}
function Fraction(position, source: Extended): Extended;
begin
  if (position <> 0) then
    Result := (position / source)
  else
    Result := 0.0;
end;

var
  x: Extended;

begin
  ClearDebug;
  x := 100;
  WriteLn(FloatToStr(Fraction(50, x)));
  x := (x + 400);
  WriteLn(FloatToStr(Fraction(250, x)));
  WriteLn(FloatToStr(Fraction(100, x)));
end.