Enter the number if it is even, divide it by 4, if not even, multiply by 5.

Since the result can be fractional, for example, when entering 2, we should get 0.5, then we have to store the result in a real data type.

program Example;

var
a: integer;
result: real;
begin
write (‘Enter a number’);
readln (a);
if (a mod 2) = 0 then result: = a / 4 else result: = a * 5;
writeln (‘Get it’, result);
end.