Определить содержимое двумерных массивов после выполнения фрагментов кода

for i:= 1 to 100 do
  for k:= 1 to 100 do
    if i=k then
      A[i,k]:=-4
    else A[i,k]:=1;

for n:= 1 to 4 do
  for k:= 1 to n+1 do begin
    A[n,k]:=A[n,k]+1;
    A[n,k+1]:=A[n,k]+1;
  end;

Program gt; var a:array[1..10,1..10]of integer; 
n,k,p:integer; 
begin p:=0; 
for n:=1 to 10 do for k:=1 to 10 do a[n,k]:=1;
for n:=1 to 4 do for k:=1 to n+1 do 
  begin A[n,k]:=A[n,k]+1; 
  A[n,k+1]:=A[n,k]+1;
end; for n:=1 to 10 do begin 
for k:=1 to 10 do
   begin write(a[n,k]:3,' '); 
   if(a[n,k]=6)then p:=p+1; 
   end; writeln; end; writeln(p); end.

const n=100;
type Mas=array [1..n, 1..n] of integer;
var A: Mas;
    i,k, Sum: integer;
begin
 
Sum:=0;
for i:=1 to  n do
  begin
  for k:=1 to n do
     begin
      if i=k then
             begin
                A[i,k]:=-4;
                Sum:=Sum+A[i,k];
             end
             else
             begin
                A[i,k] :=1;
                Sum:=Sum+A[i,k];
             end;
      Write(A[i,k]:3);
     end;
  WriteLn;
  end;
  WriteLn;
  WriteLn(' Sum = ',Sum);
ReadLn;
end.

const n=100;
type Mas=array [1..n, 1..n] of integer;
var A: Mas;
    i,k, Sum: integer;
begin
Sum:=0;
for i:=1 to  n do
for k:=1 to n do
  begin
    if i=k then A[i,k]:=-4
    else  A[i,k] :=1;
    Sum:=Sum+A[i,k];
   end;
write('sum=',sum)
end.

var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 4 do
 begin
  for k:=1 to n+1 do
   begin
    a[n,k]:=1;
    write(a[n,k]:3);
   end;
  writeln;
 end;
writeln;
for n:=1 to 4 do
 begin
  for k:=1 to n+1 do
   begin
    A[n,k]:=A[n,k]+1;
    A[n,k+1]:=A[n,k]+1;
    write(A[n,k]:3);
    if(a[n,k]=6)then p:=p+1;
   end;
  writeln;
 end;
writeln(p);
end.