M5a78l-m plus/usb3 подключение передней панели​

array = [3, 6, -2, 7, -5, -6, 8, 16, 64, 23, -45, 24, 15, 3, 5]

sum1 = 0

dob = 1

index1 = 0

index2 = 0

index3 = 0

sum2 = 0

for i in range(len(array)):

   if array[i] < 13:

       sum1 = sum1 + array[i]

   if array[i] > 0:

       dob = dob * array[i]

       index1 = index1 + 1

       sum2 = sum2 + (array[i] * array[i])

   if array[i] < 0:

       index2 = index2 + 1

   if array[i] % 2 != 0:

       index3 = index3 + 1

print("Сума елементів масиву, які менші за 13: " + str(sum1))

print("Добуток додатніх елементів масиву: " + str(dob))

print("Кількість додатніх елементів масиву: " + str(index1))

print("Кількість від\'ємних елементів масиву: " + str(index2))

print("Кількість непарних елементів масиву: " + str(index3))

print("Квадрат суми непарних елементів масиву: " + str(sum2))

По порядку: 
Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;
1) Beigin; правильно Begin и без точки с запятой
2)p=0;  оператор присвоения пишется не просто равно, а := правильно: "p:=0;"
3)i=1; см. 2пункт
4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать  в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin
5)i=i+2; см. пункт 2
6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 
7) End. в конце цикла пишут end; 
8) в конце программы ставят End.

Откорректированный код:

Program z_1
Var i,p : integer;
Begin
p:=0;
i:=1;
while (i > 15) do begin
p:=p*i;
i:=i+2;
  end;
write('произведение нечётных чисел от 1 до 15 =',p);

End.