10 CLS 20 PRINT "Ingrese el numero decimal:"; 25 INPUT NU 30 FOR I=1 TO 1000 40 N1=FRAC(ROUND(NU*I,-5)) 50 IF N1=0 THEN N=NU*I:D=I:I=1000 60 NEXT I 70 IF N=0 THEN N=NU:D=1 80 PRINT "=";ROUND(N,-4);"/";D;"=";N/D 90 END