ПАСКАЛЬ!Срочно.Циклы в алгоритмах.

//PascalABC.Net 3.2 function f(n: integer):=1/(n*n*n); begin var sum:=0.0; for var i:=1 to 1000 do sum+=f(i); write (sum); end.