Viết chương trình nhập dãy n số nguyên từ bàn phím, khoảng cách giữa hai số là khoảng cách giữa hai điểm khi biểu diễn chúng trên trục số

```pascal
program Bai2_KhoangCach;
var
n, i, maxDist, minDist, num1, num2, maxNum1, maxNum2, minNum1, minNum2: integer;
arr: array[1..100] of integer;
begin
write('Nhap so luong phan tu cua day: ');
readln(n);

write('Nhap day so nguyen: ');
for i := 1 to n do
begin
read(arr[i]);
end;

maxDist := -1;
minDist := maxint;

for i := 1 to n-1 do
begin
if abs(arr[i] - arr[i+1]) > maxDist then
begin
maxDist := abs(arr[i] - arr[i+1]);
maxNum1 := arr[i];
maxNum2 := arr[i+1];
end;

if abs(arr[i] - arr[i+1]) < minDist then
begin
minDist := abs(arr[i] - arr[i+1]);
minNum1 := arr[i];
minNum2 := arr[i+1];
end;
end;

writeln('Hai so ', maxNum1, ' va ', maxNum2, ' co khoang cach lon nhat la: ', maxDist);
writeln('Hai so ', minNum1, ' va ', minNum2, ' co khoang cach be nhat la: ', minDist);
end.
```

Chúng ta khai báo biến `n` để lưu số lượng phần tử của dãy và một mảng `arr` để lưu dãy số nguyên. Sau đó, chúng ta sẽ nhập dãy số từ bàn phím và tính khoảng cách giữa các cặp số liên tiếp trong dãy.

Cuối cùng, chúng ta sẽ tìm ra cặp số có khoảng cách lớn nhất và cặp số có khoảng cách nhỏ nhất trong dãy và in ra kết quả.