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

//Pascal ABC.Net 3.0, сборка 1053var  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