Ввести число если оно четное разделить его на 4 если не четное умножить на 5

Так как результат может быть дробным, например, при вводе 2, мы должны получить 0.5, то результат мы вынуждены хранить в вещественном типе данных.

program Example;

var

a:integer;

result:real;

begin

write ('Введите число ');

readln (a);

if (a mod 2) = 0 then result:=a/4 else result:=a*5;

writeln ('Получим ', result);

end.