CONST
 N=10;
VAR
 A,B:ARRAY[1..N] of Integer;
 M:Byte;
 i:Integer;

Function Sign(s:integer):ShortInt;
 begin
  If s<0 then Sign:=-1 else
  If s>0 then Sign:=1 else
  Sign:=0;
 end;

BEGIN
 For i:=1 to N do
  begin
   Write('A[',i:2,']= ');
   ReadLn(A[i]);
  end;
 M:=1;
 i:=1;
 REPEAT
  B[M]:=A[i];
  Repeat
   Inc(i);
   If Sign(A[i])=Sign(A[i-1]) then
    B[M]:=B[M]+A[i];
  Until (Sign(A[i])<>Sign(A[i-1])) or (i=N);
  If i<N then Inc(M);
 UNTIL i=N;
 For i:=1 to N do
  Write(A[i]:5);
 WriteLn;
 For i:=1 to M do Write(B[i]:5);
 ReadLn;
END.