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

Program perebor;
const n=100;
var a:array[1..n] of integer;
i,j,k,l: integer;
begin
writeln(Ввести массив из ,n, целых чисел);
for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
for l:=k+1 to n do
if a[i]+a[j]+a[k]+a{l}=0
then writeln(a[i], ,a[j], ,a[k],,a[l] );
end.