Cách 1: 

program hoan_doi;

uses crt;

var x,y,tg:integer;

begin

       clrscr;

       write('Nhap x: ');  readln(x);

       write('Nhap y: ');  readln(y);

       tg:=x;

       x:=y;

       y:=tg;

       writeln('Ket qua sau khi hoan doi')

       writeln('x= ',x);

       writeln('y= ',y);

       readln;

end.

Cách 2:

program hoan_doi;

uses crt;

var x,y:integer;

begin

        clrscr;

        write('Nhap x: ');  readln(x);

        write('Nhap y: ');   readln(y);

        writeln('Sau khi hoan doi la:');

        writeln('x= ',y);

        writeln('y= ',x);

        readln;

end.

*Cách 1 thì là thay đổi giá trị thật sự, còn cách 2 chỉ là in ra chứ không có tác dụng về sau.

Nhiều điểm nên mình làm 2 cách luôn!

C1: Dùng biến tạm:

uses crt; 
var a,b,tam:longint;
begin
   clrscr;
   write('Nhap a:');readln(a);
   write('Nhap b:');readln(b);
   tam:=a;
   a:=b;
   b:=tam;
   writeln('a=',a);
   writeln('b=',b);
readln;
end.

C2: Không dùng biến tạm:

uses crt; 
var a,b:longint;
begin
   clrscr;
   write('Nhap a:');readln(a);
   write('Nhap b:');readln(b);
   a:=a+b;
   b:=a-b;
   a:=a-b;
   writeln('a=',a);
   writeln('b=',b);
readln;
end.

C3: Cách này chỉ xuất thôi chứ a,b chưa hoán đổi.

uses crt; 
var a,b:longint;
begin
   clrscr;
   write('Nhap a:');readln(a);
   write('Nhap b:');readln(b);
   writeln('a=',b);
   writeln('b=',a);
readln;
end.