Write a program in which the user enters a number from the keyboard, and if the number is greater than 100

Write a program in which the user enters a number from the keyboard, and if the number is greater than 100, then it is divided in half, and if the number is less than 100, then it increases by 3 times.

// sample program in Pascal.

var
i, x: real; // declare variables of real type.
begin
writeln (‘Please enter a number other than 100:’); // display the string to the screen.
readln (x); // read the value of the variable entered from the keyboard.
if (x> 100) then i: = x / 2; // if the entered number is greater than 100, then divide it by 2.
if (x <100) then i: = x * 3; // if the entered number is less than 100, then increase it 3 times.
writeln (‘Answer:’, i); // display the answer to the screen.
end.