uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if a>b then
 write(b,' ',a)
else write(a,' ',b);
readln
end. 

combo code c++ luôn nhá.

PASCAL:

var a,b: integer;
begin
    readln(a,b);
    if a<=b then write(a,' ', b) else write(b,' ',a)
end.

C++:

#include <iostream>
using namespace std;
int a,b,Max,Min;
bool max(int a, int b) {
    return a>=b;
}
bool min(int a, int b) {
    return a<=b;
}
void input() {
    cin >> a >> b;
}
void solve() {
    if (max(a,b)) Max=a;
    else Max=b;
    if (min(a,b)) Min=a;
    else Min=b;
}
void output() {
    cout << Min << " " << Max;
}
int main() {
    input();
    solve();
    output();
}