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