Var i:integer;
n: array [1..8] of integer;
BEGIN
For i:=1 to 8 do
begin
Writeln('Vvedite element massiva');
Read(n[i]);
end;
Writeln;
For i:=8 downto 1 do
Writeln(n[i]);
Readln;
Readln;
END.
//PascalABC.NET
begin
seqgen(readinteger(), x -> (2 * x) / (2 * x + 1), 1).Product.Print;
end.
2^7 = 128
V = 64*64*7 = 28672 бит = 3584 байт
А кто твой кумир ? например из уфтболистов ?