code 31109;
procedure DP POW(A,EXPON,C,CC);
value A,EXPON;integer EXPON;real A,C,CC;
begin 
       LNG POW(A,0,EXPON,C,CC)
end DP POW;
   eop