Janilabo | CompareVal() [SCAR Divi]

{==============================================================================]
  Explanation: Compares value v with x. Results: 0=EQUAL, 1=v>x, -1=v<x
[==============================================================================}
function CompareVal(v, x: Integer): Integer;
begin
  case (v <> x) of
    True:
    case (v > x) of
      True: Result := 1;
      False: Result := -1;
    end;
    False: Result := 0;
  end;
end;

var
  a, b: Integer;

begin
  a := 100;
  b := 50;
  WriteLn(CompareVal(a, b));
  WriteLn(CompareVal(1, 1));
  WriteLn(CompareVal(b, a));
end.