program dsf;
var 
a:array [1..100] of integer;
i,s1,s2,p,n:integer;
begin 
randomize;
s1:=0;
s2:=s1;
p:=1;
repeat 
write ('(n<100) n='); readln  (n);
until n<100;
for i:=1 to n do begin 
a[i]:=random(20)-10;
write (a[i]:3);
if a[i]<0 then s1:=s1+a[i] else s2:=s2+a[i];
end;
writeln;
p:=s1*s2;
writeln (s1,'*',s2,'=',p);
readln 
end.

const n=10;
Var mas:array[1..n] of integer; i,pol,otr:integer;
Begin
pol:=0;
otr:=0;
For i:=1 to n do
begin
Write('mas[',i,']=');
readln(mas[i]);
if mas[i]>0 then
pol:=pol+mas[i]
else otr:=otr+mas[i];
end;
Writeln(pol,' * ',otr,' = ',otr*pol);
readln;
end.