Запишите, что будет напечатано в результате выполнения программы.

const a: array [1..8] of integer = (-4, 10,-7,0, 3, -2,-5,9);
var i,s:integer;
begin
s:=1;
for i:=1 to 8 do
if a[i]<0 then s:=s*a[i];
write (s);
end.