Janilabo | DecE() [SCAR Divi]

{==============================================================================]
  Explanation: Decreases the x value by N.
[==============================================================================}
procedure DecE(var x: Extended; N: Extended);
begin
  case (x <> N) of
    True: x := (x - N);
    False: x := 0.0;
  end;
end;

var
  e: Extended;

begin
  DecE(e, 99.999);
  WriteLn(e);
end.