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

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