Write a program that increases a given number by a factor of 100 if it is less than 20

Write a program that increases a given number by a factor of 100 if it is less than 20, and decreases it by a factor of 10 otherwise.

program zz1;
var k, s: real; // set variables of non-integer type
begin
write (‘enter the given number’); // enter the number from the keyboard
read (k);

if k <20 // check the condition, if the entered number is less than twenty, then
then s: = k * 100 // increase the given number a hundred times

else s: = k / 10; // otherwise, decrease the given number by ten times
writeln (‘received result =’, s); // display the answer
end.