Question

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

Answer 1

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.

Answer 2

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