рекурсивные процедуры Опции

[neualena]

задача. Вычисление целой степени вещественного числа а пожалуйста, помогите решить

[zx1024]

Код

function POW (p : real; n : integer) : real;
var q : real;
begin
 if n = 0 then POW := 1
 else
 if n = 1 then POW := p
 else
 if n and 1 = 1 then
 begin
   q := POW (p, n shr 1);
   POW := q*q*p
 end
 else
 begin
   q := POW (p, n shr 1);
   POW := q*q
 end
end;