Паскаль,написать код. Найти сумму числового ряда: 1^m + 2^m + 3^m

//Pascal ABC.Net 3.0, сборка 1053
var
  n,m,i:integer;
  s:double;
begin
  Write('Введите натуральные значения n и m: ');
  Read(n,m);
  s:=0;
  for i:=1 to n do s:=s+exp(m*ln(i));
  Writeln('Сумма ряда одинакова ',s)
end.

Тестовое решение:
Введите естественные значения n и m: 5 8
Сумма ряда одинакова 462979

Введите натуральные значения n и m: 30 40
Сумма ряда равна 1.62897283055013E+59

//PascalABC.NET
var
n,m,i:integer;
sum:real;
begin
readln(n,m);
for i:=1 to n do
sum:=sum+power(i,m);
writeln(sum);
end.