It is working fine for me. you just need to change min at place of max in your function.
minimum<- function()
{
x <- as.integer(readline("Enter an integer x: "))
y <- as.integer(readline("Enter an integer y: "))
z <- as.integer(readline("Enter an integer z: "))
min(x,y,z)
}
minimum()