Ввести число. Если оно положительное, возвести его в квадрат, иначе возвести его в куб

Uses crt;

Var a: integer;

Begin

Writeln ('Введите число:'); readln (a);

If a>0 then writeln ('Ваше число в квадрате:', power (a, 2));

Else writeln ('Ваше число в кубе:', power (a, 3));

End.