Дано целое число. если оно чётное, то уменьшить его в 2 раза, иначе возвести в куб

vara: integer; b: real; beginwriteln ('введи целое число');read (a); if a mod 2=0 then b:=a/2elseb:=a*a*a;writeln ('результат',b);end.