PROGRAM Sap_xep;
USES crt;
VAR A, B: INTEGER;
BEGIN
clrscr;
write('Nhap so A: '); readln(A);
write('Nhap so B: '); readln(B);
IF A<B THEN writeln(A,' ',B) ELSE writeln(B,' ',A);
readln
END.
Download: http://www.mediafire.com/?od646o8cvoc7en3
USES crt;
VAR A, B: INTEGER;
BEGIN
clrscr;
write('Nhap so A: '); readln(A);
write('Nhap so B: '); readln(B);
IF A<B THEN writeln(A,' ',B) ELSE writeln(B,' ',A);
readln
END.
Download: http://www.mediafire.com/?od646o8cvoc7en3