Uses
 crt;
var
m:array[1..100,1..100] of integer;
opr,n,i,j:integer;
begin
  randomize;
  writeln('Введите размерность');readln(n);
  for i:=1 to n do   
   for j:=1 to n do         
                m[i,j]:=random(2*20+1)-20;
  for i:=1 to n do    
   for j:=1 to n do 
               begin
               write(m[i,j]);
               if j=n then writeln;
               end;
  i:=1;
  for j:=1 to n do opr:=opr+((exp(ln(-1)*(1+j))*m[i,j]*минор ); 
 writeln(opr);               
end.
Вроде начал, тут еще надо гад минором подумать.