Дан массив из N целых чисел. Zero - quadruple - это произвольные четыре числа из этого массива, сумма которых равна нулю. Найдите сколько различных Zero - quadruple существует в этом массиве

Var a:array [1 ... 100] of integer;

n, i, zq, k, l, j: integer;

begin

readln (n);

for i:=1 to n do a[i] : = random (500) - 249;

for i : = 1 to n do

for j : = i to n do

for k : = j to n do

for l : = k to n do

if a[i] + a[j] + a[k] + a[l] = 0 then inc (zq);

writeln (zq);

end.