Возведение в степень - Turbo Pascal (29246)

function Pwr(r: Real; n: Integer): Real;
var t: Real;
begin
  if n>=0 then begin
    if Odd(n) then t:=r else t:=1;
    if n>1 then t:=t*Sqr(Pwr(r,n div 2));
  end else t:=1/Pwr(r,-n);
  Pwr:=t;
end;