Заполнить массив Y произведениями соседних трех элементов X.
2 4 3 2 1 3 X
24 6 Y

program F777;

var
X,Y:array[1..102] of integer;
mult,i,j:integer;

begin 
for i:=1 to 6 do  
readln(x[i]); 
j:=1; i:=1; 
mult:=1;
  while i<=6 do
  begin 
  mult:=mult*X[i];
  if i mod 3 = 0 then    
  begin
      Y[j]:=mult;
      mult:=1;
      j+=1;
   end;
   i+=1;
   end;
for i:=1 to 6 do
  writeln(y[i]);
end.