function RealTertiaryOp takes boolean flag, real valueA, real valueB returns real
    if flag then
        return valueA
    else
        return valueB
    endif
endfunction

function PowInt takes real x, integer power returns real
    local real x1 = x  
    local boolean bool= power < 0  
    if power == 0 then
        return 1
    elseif bool then
        set power = -power
    endif
    loop
        exitwhen power == 1
        set x1 = x1 * x
        set power = power - 1
    endloop
    return RealTertiaryOp(bool,1/x1,x1)
endfunction

function root takes real x, integer power returns real
    local real i = 1
    local real d = 1.5
    local real y = 0
    local boolean bool = true
    local boolean bool2= power < 0
    if x < 0 or power == 0 then
        return 1/0 //так... делать было нечего:)
    endif
    if bool2 then
        set power = -power
    endif
    loop                       
        loop 
            exitwhen PowInt(i,power) > x == bool 
            set i = i+i*d
        endloop   
        exitwhen RAbsBJ(y-i) < 0.001       
        set y = i
        set d = -d/2
        set bool = not bool
    endloop
    return RealTertiaryOp(bool2,1/i,i)
endfunction

function power takes real X, integer N returns real
    local integer i = 2
    local real    z = X * X
    loop
        exitwhen i >= N
        set z = z * X
        set i = i + 1
    endloop
    return z
endfunction

function calc_acc takes real X returns real
    local real acc = 1
    local real x   = X
    loop
        exitwhen x / 10 <= 1
        set x = x / 10
        set acc = acc + 1
    endloop
    return acc / 10
endfunction

function root takes real X, integer N returns real
    local real acc1 = calc_acc(X)
    local real acc2 = acc1 / 10
    local real mid  = (X + 1) / power(N, N)
    local real mid2 = (X - mid / 2)
    if power(N, N) == X then
        set mid = N
    else
    loop
        exitwhen (power(mid - acc1, N) < X) and (power(mid + acc1, N) > X)
        set mid2 = mid2 / 2
        if power(mid + acc1, N) > X then
            if mid2 > 0 then
            set mid  = (mid + mid2) / 2
            else
            set mid  = (mid + (N / 2)) / 2
            endif
        else
            set mid = mid * N
        endif
    endloop
    if acc1 > 0.3 then
        loop
            exitwhen (power(mid - acc2, N) < X) and (power(mid + acc2, N) > X)
            set mid = mid - acc2
            if power(mid, N) < X - acc1 then
                set mid = mid + acc2 * 2
            endif
        endloop
    endif
    endif
    return mid
endfunction