Cho hai biến x và y. Hãy mô tả thuật toán đổi giá trị của các biến nói trên (nếu cần) để x và y theo thứ tự có giá trị không giảm.
program doi_gia_tri;
uses crt;
var
x,y,tam:longint;
begin
writeln('Nhap x = '); readln(x);
writeln('Nhap y = '); readln(y);
if (x<y) then
begin
tam:=x;
x:=y;
y:=tam;
end;
write(x,' ',y); readln;
end.