Program z13_21;
uses crt;
var f:text;
i:byte;
k,n:integer;
BEGIN
clrscr;
Assign(f,'c:\work\test.txt');
reset(f);
i:=0;
While not eof(f) do begin
k:=0;
while not eoln(f) do begin
read(f,n);
if n<0 then inc(k);
end;
readln(f);
Inc(i);
writeln(i,'kollichestvo otricatelnyh alementov=',k);
end;
close(f);
readln;
END.