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

Question

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

Answer 1

Pascal abc................

Answer 2

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