Viết chương trình nhập các số nguyên x và 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. Lưu ý: Câu lệnh hoán đổi 2 biến x và y: Z:=x; X:=y; Y:=z;

program hoan_doi;

uses crt;

var x, y, z : integer;

begin

clrscr;

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

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

z := x;

x := y;

y := z;

writeln('gia tri cua x sau khi hoan doi la :', x );

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

readln

end.

uses crt;

var x,y,z: ineteger;

begin

clrscr;

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

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

z:=x;

x:=y;

y:=z;

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

writeln ('gia tri cua y la: ',y);

readln;

end.