Дан квадратный массив из n элементов. найти произведение элементов первой строки решить на паскале

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество строк/столбцов в массиве:');

 var a := MatrRandom(n, n, -99, 99);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 a.Row(0).Aggregate(BigInteger(1), (p, q)-> p * q).Println

end.

import math
a = list(str(input()).split()) #Cделано по теореме Пифагора. Вроде работает
a1 = int(a[0])
a2 = int(a[1])
b = list(str(input()).split())
b1 = int(b[0])
b2 = int(b[1])
c = list(str(input()).split())
c1 = int(c[0])
c2 = int(c[1])
katB1=math.fabs(a1-b1)
katB2=math.fabs(a2-b2)

katC1=math.fabs(a1-c1)
katC2=math.fabs(a2-c2)

RBA = math.sqrt(katB1**2+katB2**2)
RAC = math.sqrt(katC1**2+katC2**2)
if RBA<RAC:
print('Точка B ближе')
print('Расстояние до точки:',RBA)
elif RAC<RBA:
print('Точка C ближе')
print('Расстояние до точки:',RAC)
else:
print('Точки находятся на одинаковом расстоянии')
print('Расстояние до точки А',RBA)

Program lab;uses crt;
vari,a: integer;M: array [1 .. 30] of integer;
begin    clrscr; // Очистка экрана    randomize; // инициализирует рандом    a:=0; // инициализирует аккумулятор    for i:=1 to 30 do        M[i] := random(1000); // заполняет массив рандомными числами    for i:=1 to 30 do        if ((M[i] mod 17) = 0) or ((M[i] mod 13) = 0) then // если остаток от деления на 17 или 13 равен 0...            a := a + M[i]; // то добавить число к сумме    // если аккумулятор больше 0, то вывести вывести его значение    if a>0 then writeln('a = ',a)    // иначе вывести "чисел нет"    else writeln('чисел нет');end.