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

program abc;var a,a1,b:integer;beginread(a);a1:=a;a1:=a div 2;if(a1=0) thenb:=Power(a,2) else b:=Power(a,3);writeln(b);end.

вот как то так, возможно где то что то упустил