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.
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.