RosettaCodeData/Task/Twos-complement/PascalABC.NET/twos-complement.pas

begin
  var x := 56;
  x := not x + 1;
  Print(x);
end.