var a:array [1..20] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 20 do
a[i]:=random(16)-14;
writeln(a[i]);
if a[i]=0 then k:=k+1
end;
write(k)
end.
