Составишь программу на языке посталь А) вычислить сумму модулей элементов массива X(15). Б) выселить произведение модулей элементов массива B(15) Помогите пожалуйста

а)var  ar:array[1..15] of integer;  s,i:integer;  begin;  for i:=1 to 15 do  begin;  readln(ar[i]);  s:=s+abs(ar[i]);  end;  write(s);  end. б)var  ar:array[1..15] of integer;  s,i:integer;  begin;  s:=1;  for i:=1 to 15 do  begin;  readln(ar[i]);  s:=s*abs(ar[i]);  end;  write(s);  end.