program z564;

uses crt;

var n,k,y,i,s,j:Integer;

BEGIN

clrscr;

Writeln('введите исходные данные n и k');

readln(n,k);

s:=0;

For i:=1 to n do begin

y:=1;

For j:=1 to k do y:=y*i;

s:=s+y;

end;

writeln('ответ:',s);

readln;

END.