Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-10; 20] паскаль. написать программу решить, .

 
  for i:=1 to n do 
  Begin   
  randomize; 
   a[i]:=random(31)-10;   
 end; 
  for i:=1 to n do   
 begin   
  k:=k+a[i];   
  k1:=k1*a[i]; 
  end; 
  for i:=1 to n do 
  write(a[i],' ');
   writeln(k);//СУММА
   writeln(k1); //ПРОИЗВЕДЕНИЕ
 end.