Var A, B : réel ;
Début
Lire(A,B) ;
Si (A>=B) Alors
A<-A-B;
B<-A+B;
A<-B-A;
Sinon
B<-B+A;
A<-B-A;