Найдите все четверки элементов одномерного мacсива - Pascal

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

помогите пожалуйста решить. Найдите все четверки элементов данного одномерного мacсива натуральных чисел, произведение которых равно 120.

Решение задачи: «Найдите все четверки элементов одномерного мacсива»

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

k:=0;
for a:=1 to n-3 do
for b:=a+1 to n-2 do
for c:=b+1 to n-1 do
for d:=c+1 to n do
if x[a]*x[b[*x[c]*x[d]=120 then
 begin
  writeln(x[a],' ',x[b],' ',x[c],' ',x[d]);
  k:=1;
 end;
if k=0 then write('Таких чисел нет');

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

k - переменная, значение 0.
for a:=1 to n-3 do - цикл от 1 до (n-3) для переменной a.
for b:=a+1 to n-2 do - цикл от (a+1) до (n-2) для переменной b.
for c:=b+1 to n-1 do - цикл от (b+1) до (n-1) для переменной c.
for d:=c+1 to n do - цикл от (c+1) до n для переменной d.
if x[a]*x[b]*x[c]*x[d]=120 then - проверка условия: произведение элементов массива с индексами a, b, c, d равно 120.
writeln(x[a],' ',x[b],' ',x[c],' ',x[d]); - вывод значений x[a], x[b], x[c], x[d].
k:=1; - присвоение переменной k значения 1.
if k=0 then write('Таких чисел нет'); - если k=0, то выводится текст Таких чисел нет. Код выполняет перебор всех возможных комбинаций четырех элементов массива x и проверяет их произведение на равенство 120. Если такая комбинация найдена, она выводится на экран. Если ни одна комбинация не удовлетворяет условию, выводится сообщение Таких чисел нет.