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

var a:array[1..15,1..15] of real;
    x,b:array[1..15] of real;
    n,m,i,j,k:integer;
    s:real;
begin
repeat
writeln('Введите количество строк и столбцов от 2 до 15');
readln(n,m);
until(n in [2..15])and(m in [2..15]);
writeln('Матрица А');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Массив Х');
for i:=1 to n do
 begin
  x[i]:=9*random;
  write(x[i]:5:2);
 end;
writeln;
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+sqr(sin(a[i,j]));
writeln('Массив В');
for k:=1 to n do
 begin
  b[k]:=ln(s)/(x[k]+1);
  write(b[k]:5:2);
 end;
end.