PRINT "SADEYA/INFORTECNICA" PRINT "EVOLUCION EPIDEMIA" 10 PRINT INPUT "RAZON PROGRESION CONTAGIO 1-4="; RAZ INPUT "DIAS DESDE EL INICIO="; DIA INPUT "POBLACION DEL AREA="; POB CONT = RAZ ^ DIA PRINT "CONTAGIADOS="; CONT NCON = POB - CONT PRINT "NO CONTAGIADOS="; NCON 100 INPUT "NUEVO CALCULO SI=1 "; NC IF NC = 1 THEN 10 END