hef <- function(x, y) {
while(y) {
temp = y
y = x %% y
x = temp
}
return(x)
}
num1 = as.integer(readline(prompt = "Enter first number: "))
num2 = as.integer(readline(prompt = "Enter second number: "))
print(paste("The H.C.F. of", numl,"and", num2,"is", hcf(num1, num2)))