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

program stepen;

var x, b: integer;

begin

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

readln (x);

if x mod 2 = 0 then begin

writeln ('Число чётное');

b : = x * x;

writeln ('b = a^2 = ', b);

end else begin

writeln ('Число нечётное');

b : = a * a * a;

writeln ('b = a^3 = ', b);

end;

end.