uses crt;

var x,y,t: integer;

begin

 clrscr;

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

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

 t:=x;

 x:=y;

 y:=t;

 writeln ('gia tri cua x: ',x);

 writeln ('gia tri cua y: '.y);

readln;

end.

ủng hộ 5* và câu trả lời hay nhất !!!! cầu xin ^_^

var

                   x,y,z: integer;

begin

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

                   z:=x; 

                   x:=y;

                   y:=z;

                   write('Gia tri moi cua x = ',x,' ; y= ',y);

                   readln;

end.

#Ban_cung_co_the_dung_cac_thuat_khac_nhung_minh_thay_thuat_nay_de_hieu

#chuc_ban_hoc_tot

#co_gi_khong_hieu_ban_hoi_lai_nhe