x <- as.numeric(readline("Digite a coordenada X do ponto desejado, por favor: "))
y <- as.numeric(readline("Digite a coordenada Y do ponto desejado, por favor: "))
cat("O ponto digitado foi: (",x,",",y,")\n")

if ((x >= -1) && (x <= 1) && (y >= -1) && (y <= 1)) {
  cat("O ponto digitado, (",x,",",y,"), pertence ao quadrado\n")
} else {
  cat("O ponto digitado, (",x,",",y,"), não pertence ao quadrado\n")
}