#n <- as.numeric(readline("Digite n: "))
#m <- as.numeric(readline("Digite m: "))



#k <- 1
#soma <- 0
#while(soma < m){
#  k <- k * n
#  soma <- soma + 1
#}
  


#print(k)



#funcaox <- function(x,y){
#  return(x+y+y)
#}

#z <- funcaox(x=1,y=2)


#print(z)





#x <- as.numeric(readline("TExto genérico: "))
#print(x+1)

#(1:5)



#10*9*8*7*6*5*4*3*2*1
#x <- 8

#fatrial <- function(x){
#  fat <- 1
 # for (i in (1:x)){
 #  fat <- fat * i
 # }
 # return(fat)
#}


#n <- 3
#k <- 0
#for (i in (1:n)){
 # x <- as.numeric(readline("Texto: "))
 # k <- k + x/n
#}
#print(k)





#x <- 0
#for (i in (1:10)){
 # x <- x +  i^2
 # y <- 2
  
#}
#print(x)


#"texto"
#14
#14.129387128943
#(1:10)
#FALSE TRUE
dentro <- TRUE
while(dentro){
  x <- as.numeric(readline("Le numero: "))
  if (x > 10){
    dentro <- FALSE
  }
}
print(x^3)