Составьте программу к задаче: Возвести данное число в куб,если оно чётное, и увеличить на 3, если оно-нечётное

 

 

PS: Pascal

vara: integer;beginwriteln('Введите число: ');read(a);if a mod 2 <> 0 then writeln('Число нечетное: ',a+3)else writeln('Число четное: ',a*a*a);end.