| 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.
 |