На паскале : сформировать одномерный массив из 8-ми элементов. значение элементов массива ввести с клавиатуры. найти произведение положительных элементов массива.

//Pascal
const n = 8;
var a:array[1..n] of integer;
  s,i:integer;
begin
s:=1;
for i:=1 to n do begin
  readln(a[i]);
  if a[i] > 0 then s:=s*a[i];
  end;
writeln(s);
end.