function root takes real X, integer N returns real
    //------
endfunction

function root takes real X, integer N returns real
 local real y=0
 local real y1=1
 local integer i=0
 loop
  set y1 = 1
  set i = 0
  set y = y + 0.1
   loop
    set i = i + 1
    set y1 = y1 * y
    exitwhen i>=N
   endloop  
  exitwhen y1>=X       
 endloop
 return y
endfunction

function GetKolichestvoZnakov takes integer number returns integer
    local integer i = 0
    loop
         exitwhen number == 0
         set number = number/10
         set i=i+1 
    endloop
    return i
endfunction