program hoandoi;

uses crt;

var x,y,tam:integer;

begin

clrscr;

write('Nhap gia tri x=');readln(x);</p><p>write('Nhap gia tri y=');readln(y);</p><p>tam:=x;</p><p>x:=y;</p><p>y:=tam;</p><p>writeln('Gia tri sau khi hoan doi cua x la ',x);

writeln('Gia tri sau khi hoan doi cua y la ',y);

readln;

end.