Помогите пожалуйста по информатике, надо составить алгоритм в программе паскаль возведения четного числа в квадрат, а нечетного в куб.

var  a: integer;begin  writeln('Введите число ');  readln(a);  if (a mod 2 = 0) then     a := sqr(a)  else a := a * a * a;  writeln(a);end.