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

var

a: integer;
b: real;
begin

writeln (введи целое число);

read (a);

if a mod 2=0 then b:=a/2

else

b:=a*a*a;

writeln (результат,b);

end.