Ввести число если оно четное поделить его на 4 если не

Так как итог может быть дробным, например, при вводе 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.