Паскаль, напишите полной форме. ввести двумерный массив a2×5 . определить в нём произведение элементов чьё значение без остатка делится на 2 и не делится на 3

Var    A : array [1..2, 1..5] of integer;
    i,j,pr:integer;
Begin
pr:=1;
 Writeln('Ведите значения в массив');
   for i:=1 to 2 do
       for j:=1 to 5 do  read(A[i,j]);

               for i:=1 to 2 do
                    for j:=1 to 5 do
                           if ( (A[i,j] mod 2 = 0) and (A[i,j] mod 3 <> 0) ) then pr:=pr*A[i,j];           Writeln('Произведение = ',pr)
End.

1)

# На вход: кол-во чисел, сами числа

# Выход: кол-во чисел не кратных 5

count:int = input('Кол-во чисел?: ')

ints = []

for i in range(int(count)):

   ints.append(input('Число ' + str(i+1) + ': '))

result = []

for i in ints:

   if int(i) % 5 != 0:

       result.append(i)

print(result)

2)

# На вход: кол-во чисел, сами числа

# Выход: кол-во чисел в конце которых чётное число

count:int = input('Кол-во чисел?: ')

ints = []

for i in range(int(count)):

   ints.append(input('Число ' + str(i+1) + ': '))

result = []

for i in ints:

   if int(i) % 2 == 0:

       result.append(i)

print(result)

3)

# На вход: числа A и C

# Выход: числа, последняя цыфра которых кратна С

A = input('Отрезок от 0 до ')

C = input('Найти числа, кратные ')

result = []

for i in range(0, int(A)):

   if i % int(C) == 0:

       result.append(i)

   

print(result)

Результат сложения: 0110101011010010011101101000

Получили число 0110101011010010011101101000. В десятичном представлении это число имеет вид:

Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.

0110101011010010011101101000 = 227*0 + 226*1 + 225*1 + 224*0 + 223*1 + 222*0 + 221*1 + 220*0 + 219*1 + 218*1 + 217*0 + 216*1 + 215*0 + 214*0 + 213*1 + 212*0 + 211*0 + 210*1 + 29*1 + 28*1 + 27*0 + 26*1 + 25*1 + 24*0 + 23*1 + 22*0 + 21*0 + 20*0 = 0 + 67108864 + 33554432 + 0 + 8388608 + 0 + 2097152 + 0 + 524288 + 262144 + 0 + 65536 + 0 + 0 + 8192 + 0 + 0 + 1024 + 512 + 256 + 0 + 64 + 32 + 0 + 8 + 0 + 0 + 0 = 112011112

Результат сложения (в десятичном представлении): 112011112