Составить программу, которая чётное число возводит в квадрат, а не чётное в куб

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