viết chương trình nhập giá trị 2 biến x,y từ bàn phím (số thực) sau đó hoán đổi giá trị hai biến cho nhau

Uses crt;

Var x, y, l: real;

Begin

     Clrscr;

     Write('Nhap x = '); readln(x);

     Write('Nhap y = '); readln(y);

     l:=x;

     x:=y;

     y:=l;

     Writeln(x,' va ',y,' sau khi hoan doi la: ');

     Writeln('x = ',x);

     Writeln('y = ',y);

Readln

End.