program kaito; uses crt; var x, y, z: real; begin clrscr; write('So thu nhat: x = '); readln(x); write('So thu hai: y= '); readln(y); writeln('Truoc khi doi: x = ',x,'; y = ',y); z:=x; x:=y y:=z; writeln('Sau khi doi: x = ',x,'; y = ',y); readln end.