15.1

Algoritmo "semnome"
Var
   i, c, r, q, d: inteiro
Inicio
   d<- 2
   c <- 9
   repita

      r <- c%d
      q <- c\d

      se r=1 entao
         c <- q+1
      senao
         c<-q
      fimse
      i<-i+1
   ate (((r=0) e (q=0)) ou ((r=0) e (q=1)))
   escreva(i)
Fimalgoritmo