var
x:array[1..50] of real;
b:real;
i,n:integer;
begin
writeln('Kolvo elementov?(do 50)');
readln(n);
writeln('Vvodite elementu');
for i:=1 to n do
readln(x[i]);
for i:=1 to (n-1) do
if i=1 then b:=x[i]*x[i+1] else
if (x[i]*x[i+1])>b then b:=x[i]*x[i+1];
writeln('Kol-vo elementov: ',n);
writeln('Massiv:');
for i:=1 to n do
write(x[i]:3:3,' ');
writeln(' ');
writeln('Max proizvedenie=',b:10:3);
readln;
end.