Решение задачи Matrix 14

import random
import numpy

#M = random.randrange(2,10)
M = 6
print("M = ",M)
a = numpy.zeros((M, M))
#a.astype(int)

k = 0
for i in range(M):
    for j in range(M-i):
        k += 1
        a[j][i] = k
    k += M-i-1

k = M+1
for j in range(1,M):
    for i in range(j,M):
        a[M-j][i] = k
        k += 1
    k += M-j

print(a)

for i in range(M):
    for j in range(M-i):
        print(a[j][i], end=" ")
    for j in range(i+1,M):
        print(a[M-i-1][j], end=" ")
									

program Matrix14;
var
  a:array [1..10,1..10] of integer;
  M, i, j, i2:Integer;
 
begin
 
 Write('M: ');
 Readln(M);
 
 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to M do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
  for i2:=1 to M do
   begin
    for j:=1 to M-i2+1 do write (' ',a[j,i2]);
    for i:=i2+1 to M do write (' ',a[M-i2+1,i]);
    writeln('');
   end;
 
end.