var
  n,m,t,i,sum,tmp,j:longint;
begin
      readln(n);
      readln(m);
      sum:=0;
      for i:=1 to n do
        begin
          read(t);
          tmp:=t;
          for j:=1 to m-1 do tmp:=tmp*t;
          if tmp>0 then sum:=sum+tmp;
        end;
      writeln(sum);
end.
顶起PASCAL!!!