program pil_4_12_i(input,output);
var
  n, s : integer;
  x : real;
  label 1;
begin
	s := 0;
	write('Input count of numbers n : ');
  read(n);
  write('Input numbers : ');
1:
	if n > 0 then begin
		read(x);
    if x<0 then s := s+1;
    n := n-1;
    goto 1;
  end;
  WriteLn('There are ', s,' negative numbers.');
end.