program sss;
var
 w,u:array[0..150001]of integer;
 i,j,n,a,b,c,d,e,f,g,h,m,t:longint;
begin
 assign(input,'farmoff.in');
 reset(input);
 assign(output,'farmoff.out');
 rewrite(output);
 read(n,a,b,c,d,e,f,g,h,m);
 for i:=0 to 3*n-1 do
  begin
   w[i]:=(a*i*i*i*i*i+b*i*i+c) mod d;
   u[i]:=(e*i*i*i*i*i+f*i*i*i+g) mod h;

  end;
 for i:=0 to 3*n-2 do
  for j:=i+1 to 3*n-1 do
   if u[i]<u[j] then
    begin
      t:=u[i];
      u[i]:=u[j];
      u[j]:=t;

      t:=w[i];
      w[i]:=w[j];
      w[j]:=t;
    end;
    t:=0;
 for i:=0 to n-1 do
  t:=t+w[i];
 writeln(t mod m);
end.