program testmacht; uses wincrt;
var
   a, b: real;
function macht(x, y: real): real;
   begin
      macht:=exp(y*ln(x))
   end;
begin
   repeat
      write('Geef een positief real getal a: ');
      read(a)
   until a>0;
   write('Geef een real getal b: ');
   read(b);
   writeln('a tot de macht b is: ', macht(a, b):10:10)
end.