значение элемента массива вводится до нуля. Просчитайте творенье значений его частей

А если массив не заводить?

uses Crt;
  var n: integer;
  p: longint;

begin
  ClrScr;
  p:=1;
  repeat
    Write(' n =');
    ReadLn(n);
    if nlt;gt;0 then P:=P*n;
  until n=0;
  WriteLn (' Pro = ',P);
  ReadLn;
end.

Опасность:  Можно выйти за спектр возможный значений для longint....