Получить X1Y1+...+XsYs, где X1...Xp - отрицательные члены последовательности r1...r17, взятые в порядке их следования...

program asd;
var
h,s: real;
c:array [0..16] of real;
b:array [0..16] of real;
q,p,i:integer;
begin
for i:=0 to 16 do
begin
read (h);
  if h<0 then
   begin
    b[i]:=h; p:=p+1; writeln('b=',h,' p=',p);
   end
   else
   begin
   c[i]:=h; q:=q+1;  writeln('c=',h,' q=',q);
   end;
  end;
  
  
  if p>q then
     for i:=0 to q do s:=s+b[i]*c[q-i]
  else
      for i:=0 to p do s:=s+b[i]*c[p-i];
  
  writeln (s);
  end.

var x,y,r:array[1..17] of integer;
    i,p,q,s,l:integer;
begin
   randomize;
   p:=0; q:=0; l:=0;
   writeln('Ìàññèâ:');
   for i:=1 to 17 do
      begin
        r[i]:=random(41)-20;
        write(r[i]:4);
        if r[i]<0 then
        begin
        p:=p+1;
        x[p]:=r[i];
        end;
        end;
 
for i:=17 downto 1 do
if r[i]>0 then
begin
q:=q+1;
y[q]:=r[i];
end;
writeln;
      
if p<q then s:=p
else s:=q;
      
 for i:=1 to s do
 l:=l+x[i]*y[i];
 
 writeln('Ñóììà :',l);
end.