program testmacht; uses wincrt;
var
   r: real;
   i: integer;
function macht(x: real; y: integer): real;
   var
      hulp: real;
   begin
      hulp:=1;
      while (y>0) do
      begin
         hulp:=hulp*x;
         y:=y-1
      end;
      macht:=hulp
   end;
begin
   write('Geef een real getal r: ');
   read(r);
   repeat
      write('Geef een positief geheel getal i: ');
      read(i)
   until i>=0;
   writeln('r tot de macht i is: ', macht(r, i):8:2)
end.