usuario <- as.numeric(readline("Ingrese el número de horas trabajadas: "))

## Ingrese el número de horas trabajadas:

## Ingrese el número de horas trabajadas:
costo<- as.numeric(readline("Ingrese el costo por horas trabajadas: "))

## Ingrese el costo por horas trabajadas:

## Ingrese el costo por horas trabajadas:
extras <- as.numeric(readline("Ingrese el número de horas extras trabajadas: "))

## Ingrese el número de horas extras trabajadas:

## Ingrese el número de horas extras trabajadas:
valor <- usuario*costo
pagaextra <- (extras*(costo*2))
sueldototal <- valor+pagaextra
cat("Su sueldo sin horas extras es de:", valor, "dólares")

## Su sueldo sin horas extras es de: NA dólares

cat("Su sueldo total es de:", sueldototal, "dólares")

## Su sueldo total es de: NA dólares