Заполнить массив 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.