Составить программу для вычисления элементов одномерного массива по формуле:

var a,x:array[1..15] of real;
    b:array[1..15,1..15] of real;
    n,m,i,j,k:integer;
    ss,s:real;
begin
randomize;
repeat
writeln('Введите размеры матрицы B от 2 до 15');
readln(n,m);
until(n in [2..15])and(m in [2..15]);
writeln('Матрица B');
ss:=0;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    b[i,j]:=5*random;
    write(b[i,j]:5:2);
    ss:=ss+exp(sin(b[i,j]));
   end;
  writeln;
 end;
writeln('SS=',ss:0:2);
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=5*random;
  write(a[i]:5:2);
 end;
writeln;
writeln('Массив Х');
for k:=1 to n do
 begin
  s:=0;
  for i:=1 to k do
  s:=s+a[i];
  x[k]:=ss/ln(s);
  write(x[k]:8:2);
 end;
end.