Даны натуральные числа n и k. Составить программу вычисления выражения l^k+2^k+...+n^k.

{Для вычисления указанной суммы целесообразно организовать цикл с параметром i, в котором, во-первых, вычислялось бы очередное значение y=i^k и, во-вторых, осуществлялось бы накопление суммы прибавлением полученного слагаемого к сумме всех предшествующих (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.