program four;

var
  S : real;
  n,i,k,m :integer;
  temp1, temp2 : real;
  a,x,y: array[0..255] of integer;
begin
  writeln('Введите n: ');
  readln(n);
  writeln('Введите m: ');
  readln(m);
  writeln('Введите числовую последовательность длинной ',n, ': ');
  for i := 0 to n-1 do
  begin
    readln(a[i]);
  end;
  writeln('Введите числовую последовательность длинной ',n, ': ');
  for i := 0 to n-1 do
  begin
    readln(x[i]);
  end;
  writeln('Введите числовую последовательность длинной ',m, ': ');
  for i := 0 to m-1 do
  begin
    readln(y[i]);
  end;

  temp1 := 0; temp2 := 0;
  for i := 0 to n-1 do
  begin
    temp1 := temp1 + (a[i]*sqr(x[i]));
  end;

  for k := 0 to m-1 do
  begin
    temp2 := temp2 + sqr(y[k]);
  end;

  S := temp1/ln(temp2);
  writeln(S);
end.