# funcion que recibe tres enteros y devuelve el valor mayor
mi_funcion <- function(a, b, c){
	mayor <- ""
	if (a >= b && a >= c)
		mayor <- a
	else if (b >= a && b >= c)
		mayor <- b
	else
		mayor <- c
}


x <- as.integer(readline("Ingrese el primer valor: "));
y <- as.integer(readline("Ingrese el segundo valor: "));
z <- as.integer(readline("Ingrese el tercer valor: "));

m <- mi_funcion(x, y, z);
cat("El mayor de los tres valores es", m, "\n");