Exercice 5-1

program permutation_2;
var
a, b, c: integer;

begin
writeln('http://www.Software-DS.com');
writeln('Permutation de deux entiers.');
writeln('a=');
readln(a);
writeln('b=');
readln(b);
c := a;
a := b;
b := c;
writeln('a=', a : 0, ' b=', b : 0);

{ ©2001 All Rights Reserved to http://www.Software-DS.com 26/09/01 }
end.