Помогите с решением, пожалуйста Очень нужно

Question

Помогите с решением, пожалуйста Очень нужно

---

Answer 1

Var
b: array[1..7] of Integer;
i,k,d: Integer;
begin
for i:=1 to 7 do readln(b[i]);
for k:=1 to 7 do
begin
if k mod 2<>0 then b[k]:=b[k]*b[k]*b[k];
end;
for d:=1 to 7 do writeln(b[d]);
end.