5 INPUT "REACCIONES";R 10 INPUT "EXTREMO ARTICULADO";EA 20 INPUT "EXTREMO EMPOTRADO";EE 30 D=2*EA+3*EE+R 40 PRINT "D=";D 50 INPUT "No BARRAS";B 60 INPUT "NUDO EMPOTRADO";NE 70 INPUT "NUDO ARTICULADO";NA 80 F=3*B+3*NE+2*NA 90 PRINT "F=";F 100 S =-F+D 110 PRINT "SOLUCION=";S 120 IF S<0 THEN PRINT "MECANISMO" 130 IF S=0THEN PRINT "ISOSTATICA" 140 IF S>0THEN PRINT "HIPERESTATICA ";:PRINT "GRADO" ;S