Thử viết chương trình nhập các số X, Y, in giá trị của X và Y ra màn hình. Sau đó hoán đổi các giá trị của X và Y rồi in ra màn hình giá trị của X và Y mà không sử dụng biến thứ 3

uses crt;
var a,b,c: integer;
begin
    write('Nhap so a: ');
    readln(a);
    write('Nhap so b: ');
    readln(b);
    c:=a;
    a:=b;
    b:=c;
    write('So sau khi hoan doi: a = ',a,', b = ',b);
    readln
end.

Nếu không dùng biến thứ 3: 

uses crt;
var a,b: integer;
begin
    write('Nhap so a: ');
    readln(a);
    write('Nhap so b: ');
    readln(b);
    a:=a+b;
    b:=a-b;
    a:=a-b;
    write('So sau khi hoan doi: a = ',a,', b = ',b);
    readln
end.