1. Cách có sử dụng biến trung gian:
var x,y,k:integer;
begin
write('nhap gia tri x:'); readln(x);
write('nhap gia tri y:'); readln(y);
k:=x;
x:=y;
y:=k;
writeln('x=',x);
writeln('y=',y);
readln;
end.
2.Cách không sử dụng biến trung gian
var x,y,k:integer;
begin
write('nhap gia tri x:'); readln(x);
write('nhap gia tri y:'); readln(y);
k:=x+y;
x:=k-y;
y:=k-x;
writeln('x=',x);
writeln('y=',y);
readln;
end.