R Program to add two numbers

Program

a <- readline(prompt = "Enter first number:")
a <- as.integer(a)
b <- readline(prompt = "Enter second number:")
b <- as.integer(b)
mod_div = a %% b
print(paste("Modulo Division of two numbers is: ", mod_div))

Output

> a <- readline(prompt = "Enter first number:")
Enter first number:173
> a <- as.integer(a)
> b <- readline(prompt = "Enter second number:")
Enter second number:10
> b <- as.integer(b)
> mod_div = a %% b
> print(paste("Modulo Division of two numbers is: ", mod_div))
[1] "Modulo Division of two numbers is:  3"