Дмитрий Джойстиков любит геометрию. Он предложил одноклассникам такую задачу. На плоскости дан набор N (N<=1000) точек с целочисленными
координатами одноклассникам Дмитрия найти треугольник
наибольшей площади с вершинами в этих точках, одна из сторон которого
лежит на оси OX.
Если такого треугольника не существует, программа должна вывести ноль.

Напишите на питоне программу

##

var a := MatrRandom(10, 10, 0, 50);

a.print(4);

var s,i:integer;

s:=0;

for i:= 0 to 9 do

  if a[i, 9-i] mod 3 = 0 then

       inc(s, a[i, 9-i]);

print('Сумма=',s);

-------------free pascal-------------

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

 randomize;

 for i:=0 to 9 do begin

   for j:= 0 to 9 do begin

     a[i,j]:= random(50);

     write(a[i,j],' ')

   end;

   writeln();

 end;

 s:=0;

 for i:=0 to 9 do

      if a[i,9-i] mod 3 = 0 then

        s:=s+a[i,9-i];

writeln(s)

end.

У меня работа с одним массивом.
Паскаль.
---
uses crt;
const N=4;
        M=6;
var a: array [1..n,1..m] of integer;
    x,y,k,p: integer;
begin
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             write(a[x,y]:4);
         end;
         writeln;
     end;
     write('k='); readln(k);
     if k<=m then p:=m-1 else p:=m;
     for y:=k+1 to m do
          for x:=1 to n do
             a[x,y-1]:=a[x,y];
     for x:=1 to n do begin
         for y:=1 to p do
             write(a[x,y]:4);
         writeln;
     end;
end.