Contoh Source Code Tukar X,Y,Z Bahasa Pascal

program tukar_bilangan;

uses wincrt;

var x,y,z,w:longint;

begin

     write ('masukkan nilai x: ');

     read (x);

     writeln;

     write ('masukkan nilai y: ');

     read (y);

     writeln;

     write ('masukkan nilai z: ');

     read (z);

     w:=x;

     x:=y;

     y:=z;

     z:=w;

     writeln;

     writeln ('hasil tukar (x,y,z) menjadi (y,z,x)');

     writeln;

     writeln ('nilai x sekarang: ',x);

     writeln;

     writeln ('nilai y sekarang: ',y);

     writeln;

     writeln ('nilai z sekarang: ',z);

     read (x,y,z);

end.