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

var a: integer; beginif a mod 2=0 then a: =a*a else a: =a*a*a; write (a); end. На будущее. Уточняйте язык. Если нужен просто алгоритм: найти остаток от деления на 2 числа. Если остаток=0 тогда переменной а присвоить ее же значение в квадрате. В противном случае, возвести в куб.