Информатика 8 класс на уровне 8 класса! составьте алгоритм возведения четного числа в квадрат ,а нечетного к куб. с div и т.п.

Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
 else a:=a*a*a;
 writeln('a = ',a);
 end.

Пример:
18
a = 324