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

Question

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

Comments

в паскале? или блок-схема?

---

блок схема

Answer 1

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

---

Answer 2

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.