A <- readline(prompt="Ingrese A: ")     #Arriendo
G <- readline(prompt="Ingrese G: ")     #Gastos
I <- readline(prompt="Ingrese I: ")     #Inversión
mes <- 0
 
# your code goes here
for (i in 1:5) {
  print(i + 1)
}
 
# Equivalente a :
# for (i in 1:5) print (i + 1) 
 
my_name <- readline(prompt="Ingrese su nombre: ")
my_age  <- readline(prompt="Ingrese su edad en años: ")
my_age  <- as.integer(my_age) # convert character into integer
 
print(paste("Hola,", my_name, 
            "el año siguiente usted tendra", 
            my_age + 1, 
            "años de edad."))

QSA8LSByZWFkbGluZShwcm9tcHQ9IkluZ3Jlc2UgQTogIikgICAgICNBcnJpZW5kbwpHIDwtIHJlYWRsaW5lKHByb21wdD0iSW5ncmVzZSBHOiAiKSAgICAgI0dhc3RvcwpJIDwtIHJlYWRsaW5lKHByb21wdD0iSW5ncmVzZSBJOiAiKSAgICAgI0ludmVyc2nDs24KbWVzIDwtIDAKCiMgeW91ciBjb2RlIGdvZXMgaGVyZQpmb3IgKGkgaW4gMTo1KSB7CiAgcHJpbnQoaSArIDEpCn0KCiMgRXF1aXZhbGVudGUgYSA6CiMgZm9yIChpIGluIDE6NSkgcHJpbnQgKGkgKyAxKSAKCm15X25hbWUgPC0gcmVhZGxpbmUocHJvbXB0PSJJbmdyZXNlIHN1IG5vbWJyZTogIikKbXlfYWdlICA8LSByZWFkbGluZShwcm9tcHQ9IkluZ3Jlc2Ugc3UgZWRhZCBlbiBhw7FvczogIikKbXlfYWdlICA8LSBhcy5pbnRlZ2VyKG15X2FnZSkgIyBjb252ZXJ0IGNoYXJhY3RlciBpbnRvIGludGVnZXIKCnByaW50KHBhc3RlKCJIb2xhLCIsIG15X25hbWUsIAogICAgICAgICAgICAiZWwgYcOxbyBzaWd1aWVudGUgdXN0ZWQgdGVuZHJhIiwgCiAgICAgICAgICAgIG15X2FnZSArIDEsIAogICAgICAgICAgICAiYcOxb3MgZGUgZWRhZC4iKSk=

Cg==