4_60

algoritmo FDPDOCRLDESGRACADO()
      declare divida, p, dividaf:real;
      declare i, anos:inteiro;
      leia(divida);
      i <- 0;
      p <- 0;
      dividaf <- divida*1.08;
      enquanto (i < 120) faca
               p <- p + ((divida*0.8)*3.5);
               i <- i + 1;
      fimenquanto
      anos <- 10;
      enquanto (p < dividaf) faca
               p <- p + ((divida*0.8)*4.2);
               anos <- anos + 1;
      fimenquanto
      escreva("Para o pagamento dessa divida foram gastos", anos, " anos");
fimalgoritmo