Для вычисления указанной суммы целесообразно организовать цикл с параметром i, в котором, во-первых, вычислялось бы очередное значение y=ik и, во-вторых, осуществлялось бы накопление суммы прибавлением полученного слагаемого к сумме всех предшествующих (s= s+y)
program prim1 ;
uses crt;
var n, к, y, i, s, m: integer;
begin
clrscr;
writeln ('n= k='); readln(n, k);
s:=0;
for i:=l to n do
begin
у:=1;
for m:=l to к do
begin
{Нахождение степени k числа i.}
y: = y*i;
end;
{Нахождение промежуточной суммы.}
s:=s+y;
end;
writeln(' Ответ: ',s);
readln;
end.