[NumLock]

я так понимаю, что A -> B, B -> C, C -> A
XCHG рулит)))
добавлено позже

Код:

var
  a, b: Integer;
begin
  a := 2;
  b := 3;

  a := a+b;
  b := a-b; // b = 2
  a := a-b; // a = 3

можно переполнение a+b схватить