Найдите сумму первых m элементов последовательности. число m вводится. элементы последовательности задаются формулой An=1/n^3

var

   m : integer;

   s : real;

begin

   write('ввести m=');

   readln(m);

   for var n := 1 to m do s += 1/power(n, 3);

   writeln('Sm=', s);

end.