Question

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

Answer 1

Var A : Integer;
Begin
  Readln(A);
  If Odd(A) then A:=A*5 else A:=A div 4;
  Writeln(A);
end.