sử dụng phần mềm lập trình pascal , viết chương trình nhập giá trị cho x và y . xuất ra màn hình kết quả giá trị x và y hoán đổi cho nhau

Cách 1: 

program hoan_doi;

uses crt;

var x,y,tg:integer;

begin

       clrscr;

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

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

       tg:=x;

       x:=y;

       y:=tg;

       writeln(‘Ket qua sau khi hoan doi’)

       writeln(‘x= ‘,x);

       writeln(‘y= ‘,y);

       readln;

end.

Cách 2:

program hoan_doi;

uses crt;

var x,y:integer;

begin

        clrscr;

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

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

        writeln(‘Sau khi hoan doi la:’);

        writeln(‘x= ‘,y);

        writeln(‘y= ‘,x);

        readln;

end.

*Cách 1 thì là thay đổi giá trị thật sự, còn cách 2 chỉ là in ra chứ không có tác dụng về sau.