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

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

var a:real;

begin

read(a);

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

else a:=a*a*a;

end.