
 
 
 
 
 
Begin  
  Randomize;
  Writeln('Введите количество случайных чисел');
  Readln(N);
  S1:=0;
  S2:=0;
  For i:=1 to N do 
    begin  
	x:=Random(201)-100;
      if x < 0 Then S2:=S2+x  else  S1:=S1+x;
    end;
  Writeln('S1= ',  S1,  '  S2= ', S2);
  Readln
End.