REM
DIM EPS,N,Y,YN,XN,A(1 TO 8),Z(1 TO 8)
INPUT "EPS";EPS
DATA -0.5,-0.25,0,1,0.6,0.8,1.7,2.9
N=1:Y=0
DO
XN=0.5+0.1*N
YN=ABS(XN*LN(XN))/((1+N)^3):Y=Y+YN
N=N+1
LOOP WHILE ABS(YN)>EPS
PRINT "Y=";Y
FOR I=1 TO 8
READ A(I)
IF A(I)>=0.1 AND A(I)<0.6 THEN
Z(I)=SQR(ABS(A(I)*Y-3))
ELSE
Z(I)=A(I)*Y+2
END IF
PRINT "Z";I;"=";Z(I)
NEXT I
END

я вроде бы исправила,но все равно программа считает одинаково,при любых значениях EPS.