Желательно с объяснением ​

1)var a:array[1..3,1..3] of integer;
b:array[1..3,1..3] of integer;
c:array[1..3,1..3] of integer;
i,j:integer;
begin;
writeln('A array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    a[i,j]:=random(-10,10);
    write(a[i,j]:4);
   end;
end;
writeln;
writeln('B array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    b[i,j]:=random(-10,10);
    write(b[i,j]:4);
   end;
end;
writeln;
writeln('C array:');
for i:=1 to 3 do
begin;
writeln;
  for j:=1 to 3 do
   begin;
    c[i,j]:=b[i,j]-a[i,j];
    write(c[i,j]:4);
   end;
end;
end.
2)var a:array of array of real;
i,j,n,m:integer;
max:real;
begin;
randomize;
max:=-2147483648;
readln(n);
readln(m);
setlength(a,n+1);
for i:=1 to n do
setlength(a[i],m+1);
writeln('A array:');
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to m do
    begin;
    a[i,j]:=random(-10,10);
    if max<a[i,j] then max:=a[i,j];
    write(a[i,j]:4);
    end;
 end;
for i:=1 to n do
 for j:=1 to m do
  if a[i,j]<0 then a[i,j]:=max;
writeln;
writeln('Final array:');
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to m do
    write(a[i,j]:4);
 end;
end.
  

a = [[i] for i in range(10)]

for i in enumerate(a):

 for j in range(1,10):

   if i[0] == 0:

     a[i[0]].append(j)

   else:

     a[i[0]].append(j*i[1][0])

for i in a:

   for j in i:

     print('{:3d}'.format(j), end='')

   print()

print('------------------------------------')

while True:

 x = int(input('Введите x: '))

 y = int(input('Введите y: '))

 print('Результат на основе таблицы умножения равен: ', str(a[x][y]))

 z = input('Повторить? (y/n): ')

 if z != 'y':

   print('До встречи!')

   break