viết chương trình tính tổng sau:1+1/8+1/27+…+1/1000

Program NN;
Uses crt;
Var i: longint;
    s: extended;
Begin
        Clrscr;
        s:=1;
        For i:=2 to 10 do
                s:=s+1/(i*i*i);
        Write(‘S = ‘,s:0:2);
        Readln
End.