program task_06;
var
 InData, OutData: text;
 N,a,i,tmp,s: longint;
begin
 assign(InData,'input.txt');
 assign(OutData,'output.txt');
 {$I-}
 reset(InData);
 if IORESULT<>0 then writeln ('Файл input.txt не найден') else
 {$I+}
 begin
 {Пояснение - сумма коэффициентов многочлена после возведения его в степень
 равна сумме коэфициентов в степени многочлена. Док-во: примем x равным 1
 тогда сумма коэффициентов будет равна значению многочлена, соответственно
 после возведения многочлена в степень будет равна значению многочлена в
 степени, а это есть сумма его коэффициентов. Что и требовалось доказать.}
 {считаем сумму коэффициентов в многочлене}
 read(InData,N);
 tmp:=0;
 for i:=0 to N do
 begin
  read(InData, a);
  tmp:=tmp+a;
 end;
 {возводим сумму коэффициентов в степень}
 read(InData, N);
 s:=1;
 for i:=1 to N do s:=s*tmp;
 close(InData);
 rewrite(OutData);
 write(OutData,s);
 close(OutData);
 end;
end.