N:=0;
for i:=1 to 50 do begin
write('x[',i,']='); readln(x);
if x<0 then N:=N+1;
end;
writeln('N=',N);
