Написать программу, вычисляющую произведение последовательности положительных чисел, которые вводятся с клавиатуры

program z;
var a,p,n,i:integer;
begin
     writeln('Введите кол-во чисел, предлагаемых для ввода');
     readln(n);
     p:=1; i:=0;
     repeat
           writeln('Введите число');
           readln(a);
           if a>0
              then
                  begin
                       p:=p*a;
                       writeln('Произведение - ',a);
                  end
           else
               writeln('Число должно быть положительным');
           i:=i+1;
     until i=n;
end.

program z;
var a,p,n,i:integer;
begin
     writeln('Введите кол-во чисел, предлагаемых для ввода');
     readln(n);
     p:=1; i:=0;
     repeat
           writeln('Введите число');
           readln(a);
           if a>0
              then
                  begin
                       p:=p*a;
                       writeln('Произведение - ',a);
                  end
           else
               writeln('Число должно быть положительным');
           i:=i+1;
     until i=n;
end.

writeln('Произведение - ',a);

writeln('Произведение - ',p);