const
  n = 10;

var
  i, p :integer;
  
  a :array [1..n] of integer;

begin

  writeln('Заполните массив из ',n,' элементов:');
  for i:= 1 to n do
    read(a[i]);
    
  p:= 1;
  for i:= 1 to n do
    if (a[i] < 0) and (i mod 3 = 0) then
      p:= p * a[i];
      
  writeln('Произведение равно ',p);

end.