Answer:
Step-by-step explanation:
Program and Result (PascalABC):
function Pow (x : real; n : integer) : real;
begin
if n = 0 then Pow := 1
else Pow := x*Pow(x,n-1);
end;
var a,b : real; k : integer;
begin
Write (' Real a = '); Readln (a);
Write (' Integer n = '); Readln (k);
b := Pow (a, k);
Write ( ' a ^ n = ', b );
end.