program asda;

var
  x: array[1..15] of integer;
  
  a, c, i, d: integer;

begin
  a := 0;
  d := 1;
  for i := 1 to 15 do
  begin
    x[i] := random(100) - 50;
    writeln('x[', i, '] = ', x[i]);
    if x[i] < 0 then a := a + x[i];
    if x[i] > 0 then d := d * x[i];
    
  end;  
  c := x[1];
  x[1] := x[15];
  x[15] := c;
  writeln('sum - ', a, ' pro - ', d);
end.