program jjj;
const p=10;
type Myarray=array[0..p] of integer;
var a,b:Myarray;
x,n:integer;
procedure init(var a:Myarray);
var i: integer;
Begin
randomize;
for i:=1 to n do a[i]:=integer(random(21))-10;
end;
function count(arr:Myarray;
x:integer):integer;
var i,s:integer;
Begin
s:=a[n];
for i:=n-1 downto 0 do s:=s*x+arr[i-1];
count:=s;
end;
function maxpoly(x:integer):integer;
var y,z: integer;
begin
y:=count(a,x);
z:=count(b,x);
if y>z then maxpoly:=y
else maxpoly:=z;
end;
Begin
readln(n);
init(a); init(b);
writeln('x');
readln(x);
writeln(maxpoly(x)); end.