Помогите с директивой absolute разобраться, не могу сделать

[Vertolet]

Помогите разораться с данной задачей

Даны две квадратные матрицы разных порядков и натуральное число n. Для каждой из матриц получить матрицу по формуле:

B = A + A^2 + ... + A^n.
с помощью директивы absolute

[Stilet]

Ниче не понял... Покажи как матрицы вводишь без этой директивы.

[Vertolet]

можно попробовать без директивы

матрицы вводятся как обычно

const n=100;
type t_matr:array [1..n;1..n] of integer;
procedure read_matr(a:t_matr;n:integer);
var i,j:integer; 
Begin
write ('введите n=');readln(n);
wite ('введите матрицу');
For i:=1 to n do
begin
For j:=1 to n do
read(a[i,j]); 
end;

не очень быстро отвечаю

[Stilet]

Тармпампам... Вспомнить надо. Давно так не писал.

const n=100;
type t_matr:array [1..n;1..n] of integer;

procedure read_matr(var a:t_matr;n:integer);
var i,j:integer; 
Begin
write ('введите n=');readln(n);
wite ('введите матрицу');
For i:=1 to n do
begin
For j:=1 to n do
read(a[i,j]); 
end;

var 
 a:t_matr;
 p:t_matr absolute a;
 i,j:integer;
begin
 read_matr(a);
 for i:=1 to n do begin
  for i:=1 to n do write(p:5); writeln;
 end; readln;
end.

Ну это с потолка.