Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для возведения целого числа А (можно брать и отрицательные числа) в целую степень В (здесь степень будет строго положительная и больше нуля). Ввод чисел осуществлять раздельно, а именно сначала число А, затем число В. Сделать проверку на ввод чисел. Если числа введены неверно, то сообщить об этом пользователю.
program Power;
var
A, B, result: integer;
begin
writeln('Enter the base number A:');
readln(A);
writeln('Enter the exponent number B (greater than zero):');
readln(B);
if (B <= 0) then
for var i := 1 to B dobegin
writeln('Error: Exponent should be greater than zero');
end
else
begin
result := 1;
begin
result := result * A;
end;
writeln(A, ' raised to the power of ', B, ' is ', result);
end;
end.