Задача: Отыскать творенье нечётных чисел от 1 до 15. В преложенном

го доту

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

End.