Viết chương trình nhập vào giá trị của 3 biến x,y,z. Hãy hoán vị giá trị của 3 biến đó và in kết quả ra màn hình.

uses crt;
var x, y, z, tmp: longint;
begin
clrscr;
    read(x, y, z);
    
    tmp:=x;
    x:=y;
    y:=z;
    z:=tmp;
    
    writeln(x, ' ', y, ' ', z);
readln; readln;
end.

program hoan_vi;

uses crt;

var x, y, z, temp  : integer;

begin

clrscr;

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

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

write('nhap gia tri z :');readln(z);

temp  := x + y + z;

y := temp  - y - z;

x := temp  - y - z;

z := temp - x - y ;

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

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

writeln('gia tri cua z sau khi hoan vi la :', z);

readln

end.