var
x:array[1..50] of real;
b:real;
i,n:integer;
ft1,ft2:text;
st:string;
begin
st:='d:\1.txt';
assignfile(ft1,st);
reset(ft1);
read(ft1,n);
for i:=1 to n do
read(ft1,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];
closefile(ft1);
st:='d:\2.txt';
assignfile(ft2,st);
append(ft2);
writeln(ft2,'Kol-vo elementov: ',n);
writeln(ft2,'Massiv:');
for i:=1 to n do
write(ft2,x[i]:3:3,' ');
writeln(ft2,' ');
writeln(ft2,'Max proizvedenie=',b:10:3);
closefile(ft2);
readln;
end.