

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.