Задача: Найти произведение нечётных чисел от 1 до 15. В преложенном тексте программы найдите ошибки.

Programm z_1;
Var i,p : real;
Beigin;
p=0;
i=1;
write i > 15 to beigin;
p:=p+i;
i=i+2;
while ('произведение нечётных чисел от 1 до 15 =',р);
End.

По порядку: 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 begin5)i=i+2; см. пункт 26) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p); 7) End. в конце цикла пишут end; 8) в конце программы ставят End.Откорректированный код:Program z_1Var i,p : integer;Beginp:=0;i:=1;while (i > 15) do beginp:=p*i;i:=i+2;  end;write('произведение нечётных чисел от 1 до 15 =',p);End.