Скласти алгоритм обміну значеннями змінних a и b, без використанням додаткової змінної.

begin

 var a := 1;

 var b := 2;

 Println(a, b);//1 2

 a := a + b;

 b := a - b;

 a := a - b;

 Print(a, b)//2 1

end.