Question

(повторяю вопрос)
условие: в фото
моя программа с ошибкой, помогите исправить
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.

Answer 1

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]:=(((i ** 5 + j ** 5) ** 3 + i ** 2)/ (i ** (4/3) + j ** 4));

     writeln(A[i,j]:4);

   end;

 writeln;

 end;

 readln;

end.

Answer 2

const

 n = 5;

var

 A: array[1..n, 1..n] of real;

 i, j, t: integer;

begin

 for i := 1 to n do

   for j := 1 to n do

   begin

     t := i * sqr(sqr(i)) + j * sqr(sqr(j));

     A[i, j] := (t * sqr(t) + i * i) / (exp(4 / 3 * ln(i)) + sqr(sqr(j)));

     write(A[i, j]:0:4, ' ');

   end;

 writeln;

 readln;

end.