gw pingin sharing aja ni . 
biasanya program tukar pakai 3 variabel kan, nah yang ini pakai 2 variabel.

this is it, with pascal,, and cekidot..     

program tukar

uses crt;

var
  x,y: integer;

begin
clrscr;
write('masukkan x : '); readln(x);
write('masukkan y : '); readln(y);
writeln('x = ',x);
writeln('y = ',y);

writeln('hasil:');

    x:=x+y;
    y:=x-y;
    x:=x-y;

writeln('x = ',x);
writeln('y = ',y);
readln;
end.

maaf double posting . -,-a