Exercice 5-2

program permutation_3;
var
a, b, c, d: integer;

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

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