```cpp
var
i,n,j,t,x,m:longint;
a,b,c,d,w,f:array[-1..40002] of longint;
begin
readln(n,m);
for i:=1 to m do
begin
readln(f[i]);
inc(w[f[i]]);
end;
for i:=1 to n div 9 do
begin
t:=0;
x:=i*9+1;
for j:=x+1 to n do
begin
t:=t+w[j-x]*w[j-x+2*i];
d[j]:=d[j]+t*w[j-i];
c[j-i]:=c[j-i]+t*w[j];
end;
t:=0;
for j:=n-x downto 1 do
begin
t:=t+w[j+x]*w[j+x-i];
a[j]:=a[j]+t*w[j+2*i];
b[j+2*i]:=b[j+2*i]+t*w[j];
end;
end;
for i:=1 to m do writeln(a[f[i]],' ',b[f[i]],' ',c[f[i]],' ',d[f[i]]);
write;
readln;
readln;
end.
```
by yxq123456789 @ 2017-03-20 18:52:49