Tentativas máximas necessárias para descobrir um número

Algoritmo "semnome"

Var
   // Seção de Declarações das variáveis
   d,c,r,t:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   d<-5
   c<-2
   r<-d % 2
   c <- d \ 2
   // escreval("r =",r)
   //  escreval("c =",c)
   t <-1
   escreva("Quantos números? ")
   leia(d)
   enquanto d>2 faca
      r<-d % 2
      c <- d \ 2
      se r=0 entao
         d <- c
      senao
         d <- c+1
      fimse
      t<- t+1
   fimenquanto
   escreva(t)
Fimalgoritmo