Program enota;
Var a:array[1..10] of integer; i,p:integer;
begin
for i:= 1 to 10 do 
begin
read(a[i]);
if ((a[i]>=-99) and (a[i]<=-10))then p:=p+1;
end;
write(p);
end.