Const
 N=20;
VAR
 Nneg_bef,Nneg_aft:BYTE;
 A:ARRAY[1..N] of INTEGER;
 i:INTEGER;
BEGIN
 RANDOMIZE;
 WriteLn('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=RANDOM(1000)-700;
   Write(A[i]:5);
  end;
 WriteLn;
 Nneg_bef:=0;
 i:=0;
 Repeat
  INC(i);
  Nneg_aft:=0;
  If (A[i]<0) and (i<N) then
   begin
    INC(Nneg_aft);
    Repeat
     INC(i);
     If A[i]<0 then INC(Nneg_aft);
    Until (A[i]>=0) or (i=N);
   If Nneg_bef<Nneg_aft then Nneg_bef:=Nneg_aft;
  end;
 Until i=N;
 Writeln('The longest series consists of ',Nneg_bef,' negative elements');
 ReadLn;
END.