program lab_4;
{$APPTYPE CONSOLE}
uses
  windows;

var i,n:integer;
    A,C:array[0..255] of real;
    sum,mul,max:real;
    pin,pout:TextFile;

Begin
setConsoleCp(1251);
setConsoleOutputCp(1251);
AssignFile(pin,'input.txt');
AssignFile(pout,'output.txt');
Reset(pin);
Rewrite(pout);
sum:=0;
mul:=1;
max:=0;
//writeln('Введите количество элементов n');
readln(pin,n);
//writeln('Введите массив A');
for i:=1 to n do
    read(pin,A[i]);
//writeln('Введите массив C');
for i:=1 to n do
    read(pin,C[i]);
writeln(pout,'Исходный массив A: ');
for i:=1 to n do
    write(pout,A[i]:7:3);
writeln;
writeln(pout,'Исходный массив C: ');
for i:=1 to n do
    write(pout,C[i]:7:3);
writeln;
sum:=sum + A[1];
mul:=mul * C[1];
max:=sum/mul;
for i:=2 to n do Begin
    sum:=sum + A[i];
    mul:=mul * C[i];
    if max < sum/mul then max:=sum/mul;
    end;
writeln(pout,'Наибольшее из возможных соотношений равно:',max:6:3);
close(pin);
close(pout);
end.