a �crit dans le message news: 8u8j99$2rk$1@nnrp1.deja.com... > A funny version that does not require a temp variable: > > procedure Swap (A, B : in out Integer) is > begin > if A <= B then > A := A + B; > B := A - B; > A := A - B; > end if; > end Swap; > > It works better if A, B are modular (:-)) > But then, you have : A:= A xor B; B := B xor A; A := A xor B;