кодик
program N_27;
const d = 8;
var
N: integer;
a: array[0..d-1] of integer; {буфер}
{k-е введенное число записываем в ячейку a[k mod d]}
x: integer;
mx: integer; {максимальное введенное число}
{(не считая 8 последних)}
m: longint; { максимальное значение произведения}
i: integer;
begin
readln(N);
{Ввод первых d чисел}
for i:=1 to d do
begin
readln(x);
a[i mod d] := x
end;
{ Ввод остальных элементов, поиск максимального
произведения}
mx := 0; m := 0;
for i := d + 1 to N do
begin
readln(x);
if a[i mod d] > mx then mx := a[i mod d];
if x * mx > m then m := x * mx;
a[i mod d] := x
end;
writeln(m)
end.