PASCAL: объявить целочисленный массив из N элементов

Program Drob_0_55;
 uses Crt;
 const m=5;
          n=6;
 type Mat=array[1..m, 1..n] of real;
 var A: Mat;
     i,j: integer;
     frc: real;
     flag: boolean;

begin
 ClrScr;
   Randomize;                          {Датчик СЧ}
   for i:=1 to m do                     {Цикл ввода и вывода массива}
   begin
     for j:=1 to n do
        begin
           A[i,j]:=(10+random(70))/100;
           Write (A[i,j]:6:2);
         end;
   WriteLn;
   end;

   for i:=1 to m do                {Поиск}
      begin
      flag:=false;
      for j:=1 to n do
          begin
             frc:=frac(A[i,j]);
             if frc>0.55 then flag:=true;
          end;
      if flag then Writeln('‘Строка: ', i);
      end;
      if flag=false then WriteLn('Не найдено!');
 ReadLn;                                                    {Ожидание нажатия ENTER}
end.                                                f

import random

A  = []

for i in range(15):

   A.append(random.randrange(-50,50))

print(A)

pr = 1

for i in range(len(A)):

   pr*= A[i]

print("Произведение всех элементов равно: ", pr)

ko = 0

for i in range(len(A)):

   if A[i] < 0:

       ko += 1

print("Количество отрицательных элементов: ", ko)

sn = 0

nch = 0

for i in range(15):

   if A[i] % 2 != 0:

       sn+= A[i]

       nch += 1

if nch == 0:

   print("NO")

else:

   sr = sn / nch

   print("Среднее арифметическое:", end=" ")

   print(float('{:.2f}'.format(sr)))

print("Положительные, которые оканчиваются на 8:", end= " ")

k8 = 0

k93 = 0

for i in range(len(A)):

   if A[i] > 0 and A[i] % 10 == 8:

       k8 += 1

       print(A[i],end=" ")

if k8 == 0:

   print("NO",sep=" ")

print("Числа, которые делятся на 3, но не на 9:")

for i in range(len(A)):

   if A[i] % 3 == 0 and A[i] % 9 != 0 and A[i] > 0:

       k93+=1

       print(A[i],end=" ")

if k93 == 0:

   print("NO")