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

Program abc;
var a,a1,b:integer;
begin
read(a);
a1:=a;
a1:=a div 2;
if(a1=0) then
b:=Power(a,2) else 
b:=Power(a,3);
writeln(b);
end.

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