проделайте несколько операций с массивом array.
1. найдите сумму положительных элементов массива (s).
2. найдите произведение отрицательных элементов масси
ва (р).​

1→ 2; 2→3; 3→4; 10→11; 100→101 - тут к числу прибавляем 1
1→2; 2→4; 3→6; 4→8; 10→20; 100→200 - тут число умножаем на 2
1→3; 2→5; 3→7; 4→9; 10→21; 100→201 - число умножаем на 2 и прибавляем 1
1→2; 2→1; 3→4; 4→3; 10→9; 11→12; 100→99 - к нечетным прибавляем 1, от четных отнимаем 1
1→2; 2→1; 3→6; 4→2; 10→5; 11→22; 100→50 - четные мы делим на 2, а нечетные умножаем
1→1; 2→1; 3→1; 4→1; 10→2; 11→2; 100→3 - кол-во цифр в числе
1→1; 2→2; 3→0; 4→1; 20→2; 21→ 0 - остаток от деления на 3
1→0; 2→0; 3→1; 4→1; 20→6; 21→7 - целая часть от деления на 3

По порядку: 
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.