Написать программу.с клавиатуры вводится число, если оно четное в: =а^2, если нечётное в: a^3

Readln ( a );
if a mod 2 = 0 then write ( a*a )
else
write ( a*a*a);
end.
в вар укажи; что число integer