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

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