var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
на будущее. уточняйте язык.
если нужен просто алгоритм:
найти остаток от деления на 2 числа. если остаток=0 тогда переменной а присвоить её же значение в квадрате. в противном случае, возвести в куб.