Để thu hút khách hàng, Siêu thị điện máy cho đặt một máy tính ngay cạnh lối vào. Trên màn hình của máy tính hiển thị số nguyên n có 4 chữ số (không có số 0 ở đầu) và cho biết số này nhận được từ số nguyên x có 4 chữ số có nghĩa bằng cách cộng 2 chữ số đầu của x và 2 chữ số cuối của x sau đó viết liên tiếp 2 số nhận được thành số hiển thị trên màn hình, trong đó số lớn hơn được viết trước

Dưới đây là chương trình Pascal để giải bài toán này:

```pascal
program TimSoNguyen;

var
n, x, a, b, c, d, sum1, sum2: integer;
found: boolean;

begin
readln(n);
found := false;

for x := 1000 to 9999 do
begin
a := x div 1000; // Chữ số hàng nghìn
b := (x div 100) mod 10; // Chữ số hàng trăm
c := (x div 10) mod 10; // Chữ số hàng chục
d := x mod 10; // Chữ số hàng đơn vị

sum1 := a + b;
sum2 := c + d;

if (sum1 > sum2) and (sum1 * 100 + sum2 = n) then
begin
writeln(x);
found := true;
break;
end
else if (sum2 > sum1) and (sum2 * 100 + sum1 = n) then
begin
writeln(x);
found := true;
break;
end;
end;

if not found then
writeln(0);
end.
```

Chương trình này thực hiện các bước sau:

1. Đọc số nguyên `n` từ đầu vào.
2. Duyệt qua tất cả các số nguyên `x` có 4 chữ số từ 1000 đến 9999.
3. Tách các chữ số của `x` thành `a`, `b`, `c`, và `d`.
4. Tính tổng của hai chữ số đầu (`sum1`) và hai chữ số cuối (`sum2`).
5. Kiểm tra nếu `sum1` lớn hơn `sum2` và `sum1 * 100 + sum2 = n` hoặc `sum2` lớn hơn `sum1` và `sum2 * 100 + sum1 = n`.
6. Nếu tìm thấy số `x` thỏa mãn điều kiện, in ra số đó và kết thúc chương trình.
7. Nếu không tìm thấy số nào thỏa mãn, in ra `0`.

Chương trình này đảm bảo tìm ra số nguyên nhỏ nhất có 4 chữ số thỏa mãn điều kiện hoặc in ra `0` nếu không có số nào thỏa mãn.