Определить:
а) сумму всех элементов массива;
б) произведение всех элементов массива;
в) сумму квадратов всех элементов;
г) сумму шести первых элементов массива;
д) сумму элементов массива с k1-го по k2-й ( значение k1 и k2 вводятся с клавиатуры; k2>k1);
Пожалуйста надо очень срочно

спасибо)

const  n = 40;var  s,i,ind,k1,k2: integer;  mas: array[1..n] of integer;begin  s := 0;  for i:=1 to n do s := s+ mas[i];  Writeln ('сумма элементов массива: ',s);    s := 1;  for i:=1 to n do s := s * mas[i];  Writeln ('произведение элементов массива: ',s);    s := 0;  for i:=1 to n do s := s + mas[i]*mas[i];  Writeln ('сумма квадратов элементов массива: ',s);  s := 0;  for i:=1 to 6 do s := s+ mas[i];  Writeln ('сумма первых 6 элементов массива: ',s);    ind:=0;  repeat    Writeln('Введите К1: '); read(k1);    Writeln('Введите К2: '); read(k2);    if (k2>k1) then ind := 1;  until (ind=1);    s := 0;  for i:=k1 to k2 do s := s+ mas[i];  Writeln ('сумма элементов массива с k1-го по k2-й: ',s);  end.