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.