Составить программу,которая возводит в степень дробь

// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin   var a,b,sgn: integer;   var aa,bb,ap,bp: biginteger;   var s: string: ='';   write('введите числитель и знаменатель дроби: ');   read(a,b);   var n: =readinteger(' показатель степени: ');   if n=0 then writelnformat('({0}/{1})^0 = 1',a,b)   else       if (a=0) and (b< > 0) then writelnformat('(0/{0})^{1} = 0',b,n)       else begin           if a*b< 0 then s: ='-';           aa: =abs(a); bb: =abs(b); ap: =1; bp: =1;           if n> 0 then               for var i: =1 to n do begin ap*=aa; bp*=bb end           else               for var i: =1 to -n do begin ap*=bb; bp*=aa end;           if bp=1 then               writelnformat('({0}/{1})^{2} = {3}{4}',a,b,n,s,ap)           else               writelnformat('({0}/{1})^{2} = {3}{4}/{5}',a,b,n,s,ap,bp)           end end. тестовые примеры: введите числитель и знаменатель дроби: 1 23 показатель степени: 5 (1/23)^5 = 1/6436343 введите числитель и знаменатель дроби: 1 6 показатель степени: -4 (1/6)^-4 = 1296 введите числитель и знаменатель дроби: -3 31 показатель степени: 11 (-3/31)^11 = -177147/25408476896404831 введите числитель и знаменатель дроби: -17 -125 показатель степени: 4 (-17/-125)^4 = 83521/244140625 введите числитель и знаменатель дроби: -15 27 показатель степени: 0 (-15/27)^0 = 1 введите числитель и знаменатель дроби: 0 3 показатель степени: 2 (0/3)^2 = 0 введите числитель и знаменатель дроби: 2 0 показатель степени: 3 (2/0)^3 = 8/0 введите числитель и знаменатель дроби: 0 0 показатель степени: 3 (0/0)^3 = 0/0

25

Объяснение:11001=1*2∧4+1*2∧3+0*2∧2+0*2∧1+1*2∧0=25