Дан массив из N целых чисел. 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.