В последовательности найти два члена, среднее арифметическое которых ближе всего к X - QBasic

Формулировка задачи:

Даны действительные числа X1, Y1, Y2, ..., Y25. В последовательности {Y} найти два члена, среднее арифметическое которых ближе всего к X помогите пожалуйста написать программу только не в qbasic, a в TurboBasic

Решение задачи: «В последовательности найти два члена, среднее арифметическое которых ближе всего к X»

Листинг программы

INPUT "vvedite kol-vo chisel ",n
DIM y(n)
FOR i=1 TO n
INPUT "vvedite chislo ",y(i)
NEXT
INPUT"vvedite x ",x
min=1E38
FOR i=1 TO n
FOR j=1 TO n
IF i<>j AND ABS(y(i)+y(j)-2*x)<min THEN c=y(i):d=y(j):min=ABS(y(i)+y(j)-2*x)
NEXT
NEXT
PRINT c
PRINT d

Объяснение кода листинга программы

Пользователю предлагается ввести количество чисел в последовательности (n).
Затем пользователю предлагается ввести сами числа и число X.
Переменная min инициализируется очень большим числом, чтобы первоначально принять любое возможное значение.
Два вложенных цикла перебирают все возможные пары чисел из последовательности.
Если сумма двух чисел ближе к X, чем текущее минимальное значение, то текущие значения min, c и d обновляются.
После завершения циклов, выводятся наилучшие числа c и d.