program tp1;
uses wincrt;
var  
x,y,z:integer;


{-----------------------Procedure d'echange-------------------------}
procedure echange(var a,b:integer);
          var
          c:integer;

          begin
          c:=a;
          a:=b;
          b:=c;
          end;

{-----------------------Programme principal--------------------------}

begin
writeln('Entrez 3 nombres x,y,z : ');
readln(x,y,z);
echange(x,y);
echange(x,z);

writeln('Résultat de la permutation : ','x: ',x,', y: ',y,', z: ',z);
end.