выдает ошибку, помогите исправить
const
n=5;
var A:array[1..n,1..n] of real;
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=(exp(3*ln(exp(5*ln(i)+(exp(5*ln(j)))+sqr(i)/exp(1/3*(sqr(i)*sqr(i))+(sqr(j)*sqr(j)));
write(A[i,j]:4);
end;
writeln;
end;
readln;
end.