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

PS: Pascal

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.