permutation de deux valeurs sans utilisation de variable intermédiaire

[color=red]ALGORITHME/color]
0- Début Permut
1- Lire(A)
2- Lire(B)
3- A <-- A + B
4- B <-- A - B
5- A <-- A - B
6- Ecrire (A, B)
7- Fin Permut

PASCAL
Program Permut;
uses Wincrt;
Var A, B : Integer;
Begin
Write('La première valeur :');
Readln(A);
Write('La deuxième valeur :');
Readln(B);
A : = A + B;
B : = A - B;
A : = A - B;
Write('La première valeur sera :',A);
Write('La deuxième valeur sera :',B);
End.

cette méthode de permutation est basée sur l'addition et la soustraction