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

var a:integer;

begin

if a mod 2 = 0 then a:=a*a else a:=a*a*a;

write (a) ;

end.

на будущее. уточняйте язык.

если нужен просто алгоритм:

найти остаток от деления на 2 числа. если остаток=0 тогда переменной а присвоить её же значение в квадрате. в противном случае, возвести в куб.