Скажите , где тут ошибка?

program s;
const l=20;
var i,j,x,n,m,k: integer;
s: real;
b: array [1..20] of real;
a: array [1..10,1..100] of integer;
begin
write('введите n< =10 = '); readln(n);
write('введите m< =100 = '); readln(m);
for i: =1 to n do
begin
for j: =1 to m do
begin
a[i,j]: =-50+random(100);
end;
end;
for x: =1 to l do
begin
s : = 0;
for i: =1 to n do
for j: =1 to m do
s : = s +(sqr(sin(a[i,;
b[k]: =(ln(s)+s)/x[k]+1;
writeln('b[k] = ',b[k]: 0: 3);
end;
end.

diana290510    2   19.11.2019 23:54    0