viết chương trình hoán đổi 2 số mà ko sử dụng biến trung gian

uses crt;
var a,b: integer;
begin
clrscr;
write (‘nhap a: ‘);  readln (a);
write (‘nhap b: ‘);  readln (b);
a:=a+b;
b:=a-b;
a:=a-b;
writeln (‘gia tri cua a la: ‘,a);
writeln (‘gia tri cua b la: ‘,b);
readln;
end.

`text{ Good luck }`