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

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