дано целое число. если оно чётное, то уменьшить его в 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.