Viết chương trình Cho hai biến x, y. Viết câu lệnh hoán đổi giá trị của hai biến để x và y có giá trị tăng dần.

Program bai_giai;

Var x, y, max : Integer;

Begin

Write( ' Nhap so x: ' );

Readln(x);

Write( ' Nhap so y: ' );

Readln(y);

If x < y then

Write( x,'_____',y )

Else

Write( y,'_____',x );

Readln;

End.

uses crt;

var x, y : integer;

begin

clrscr;

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

if x > y then 

begin

x := x + y;

y := x - y;

x := x - y;

writeln('gia tri x = ', x );

writeln('gia tri y = ', y);

end

else

begin

writeln('gia tri x = ', x );

writeln('gia tri y = ', y);

end;

readln

end.