СХЕМОЙСоставьте алгоритм возведения чётного числа в квадрат, а нечётного - в куб.

На Паскале :
Var
a : integir;
Begin
writeln('Введите число : ');
readln(a);
if a mod 2 = 1 then
writeln(a*a*a)
else
writeln(sqr(a));
end.
Надеюсь помог.