1839 PRINT " Factor Periodo";M;" (1) "; : INPUT "= ",A$