This is my source:
var
arn:array[1..150]of integer;
i,j,n,ans,t:integer;
begin
t:=1;ans:=0;
readln(n);
for i:=1 to n do
readln(arn[i]);
for i:=1 to n do
if arn[i]<>0 then
begin
for j:=1 to n do
begin
if (i<>j) and (arn[i]=arn[j]) then begin t:=t+1; arn[j]:=0 end;
if t=4 then begin t:=1; ans:=ans+1; end;
end;
t:=1;
end;
writeln(ans);
end.

Can anybody tell me, where mystake? I think to my programm is right. What is input in test  4?Help, please.