INPUT "POWER:",X
INPUT "PRECISION:",Y
0 -> Z
FOR(A,1,Y
Z+1/(A^X) -> Z
END
DISP Z