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

Question

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

Answer 1

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.