Viết chương trình hoandoi.PAS, yêu cầu nhập từ bàn phím 2 biến x và y. Hoán đổi giá trị 2 biến x,y sau đó in giá trị mới của 2 biến x,y ra màn hình. * viết bằng pascal ạ

program hoan_doi;

uses crt;

var hd, p,q: integer;

begin

                                       clrscr;

                                       write(' nhap p='); readln(p);

                                       write(' nhap q='); readln(q);

                                        write(' gia tri ban dau cua p=' ,p,' va q=',q,' ');

                                        hd:=p;

                                        p:=q;

                                        q:=hd;

                                        writeln;

                                        writeln(' gia tri cua p va q sau khi hoan doi la p=' ,p,' va q=',q,' ');

                                        readln

end.