Написать программу для составления данной матрицы(фото прилагается); на языке паскаляЗаранее благодарен))

:

program v;

var a: array [1. . 5,1. . 5] of integer;

i,j: integer;

begin

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

a[i,j]:=trunc(round(exp(j*ln(i))));

write(a[i,j]:5)

end;

writeln

end;

end.