Помогите пожалуйста) Паскаль. Дана последовательность из 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]);