4700 PRINT : INPUT "Funcion a Ingresar = ",A$