viết chương trình nhập 2 số x và y từ bàn phím. hoán đổi vị trí x và y. giúp dùm em , mai em thi rồi ạ!

program hoandoi;

uses crt;

   var x, y, tam: real;

begin

  clrscr;

  write(‘Nhap x = ‘); readln(x);

  write(‘Nhap y = ‘); readln(y);

  tam:=x;

  x:=y;

  y:=tam;

  writeln(‘Sau khi hoan doi:’);

  writeln(‘x = ‘, x);

  writeln(‘y = ‘, y);

  readln

end.