permutation de deux valeurs en utilisant une variable auxiliaire

ANALYSE
Nom = Permut
Résultat = Ecrire(Af, Bf)
Bf <-- Aux
Af <-- Bi
Aux <-- Ai
Ai = Donnée
Bi = Donnée
Fin Permut

ALGORITHME
0- Début Permut
1- Lire(A)
2- Lire(B)
3- Aux <-- A
4- A <-- B
5- B <-- Aux
6- Ecrire (A, B)
7- Fin Permut

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