10 CLS:CLEAR:PRINT"FLEXIVILIDAD" 20 INPUT"NUMERO DE LEYES";M 30 INPUT"N.INTERV.";N 40 DIM O(N),E(N),V(N),A(N),B(N),C(N,M-1),D(N,M-1) 50 FOR I=1 TO N:CLS:PRINT "INTERVALO";I:INPUT"ORIGEN";O(I) 60 INPUT"EXTREMO";E(I) 70 INPUT"EI";V(I) 72 INPUT"CORRECTO 1/0";Z:IF Z=0 THEN I=I-1 75 NEXT I 80 FOR J=O TO M-1:CLS 90 A$="INTRODUCIR M"+STR$(J) 100 IF J=O THEN B$="MO=A*X^3+B*X^2+C*X+D"ELSE B$="M=C*X+D" 110 FOR I=1TO N:PRINT A$,B$,"INTERVALO";I 120 IF J=0 THEN INPUT "A=";A(I):INPUT"B=";B(I) 130 INPUT"C=";C(I,J):INPUT"D="; D(I,J) 135 INPUT"CORRECTO 1/O";Z:IF Z=O THEN I=I-1 140 NEXT I 150 NEXTJ 160 FOR I=O TO M-1 170 FOR J=1 TO M-1:IF J