Source: https://ideone.com/QG3dQ4 (Pascal)
Chúc bạn học tốt nha
program an_danh;
uses crt;
var x,y: integer;
begin
clrscr;
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
write('Thu tu giam dan: ');
if x >= y then write(x,', ',y)
else if y >= x then write(y,', ',x);
readln
end.
uses crt;
var x,y:longint;
begin
clrscr;
write('nhap x='); readln(x);
write('nhap y='); readln(y);
if x>y then writeln(x,y)
else if x<y then writeln(y,x)
else writeln('vui long nhap lai hai so x,y');
readln;
end.