Algoritmo "raizPell"
Var
   i,m,n:inteiro

Inicio
      escreval("Digite um numero natural")
      leia(m)
      n <- 0
      se m > 0 entao
         i <- 1
         enquanto m >= i faca
                  m <- m - i
                  i <- i + 2
                  n <- n + 1
         fimenquanto
      fimse
      escreva("A raiz natural é:")
      escreva(n)

Fimalgoritmo