Помогите пожалуйста)) Паскаль. Дана последовательность из 9 чисел.  Вычислить произведение положительных элементов последовательности.

Вот пожалуйста код на PascalABC.varb,o,i:integer;a:array[1..9] of integer;beginfor i:=1 to 9 doreadln(a[i]);o:=1;for i:=1 to 9 dobegin  if a[i]>0 then  begin   b:=a[i];   o:=o*b;  end;end;writeln(o);end.P.S. Последовательность надо вводить через Enter. Если хочешь через пробел измени 5 строчку кода на read(a[i]);