Написать программу.С клавиатуры вводится число, если оно четное в:=а^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.