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

Question

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

Answer 1

Составлю на языке Паскаль:

var a:real;

begin

read(a);

if a mod 2 = 0 then a:=a*a

else a:=a*a*a;

end.