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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

var

  a: integer;

begin

  writeln(‘Введите число ‘);

  readln(a);

  if (a mod 2 = 0) then

    a := sqr(a)

  else a := a * a * a;

  writeln(a);

end.