4_62A

algoritmo Ogalvao()
      declare ncp, m, f, vin4:inteiro;
      declare s:literal;
      escreva("Informe o número de crianças nascidas no período: ");
      leia(ncp);
      vin4 <- 0;
      faca


             escreva("Informe o sexo [M/F]: ");
             leia(s);
             se (s <> 'vazio') entao
                se (s == m) entao
                    m <- m + 1;
                senao
                    f <- f + 1;
                fimse
                escreva("Informe o número de meses de vida da criança: ");
                leia(mv);
                se (mv <= 24) entao
                    vin4 <- vin4 +  1;
                fimse
            fimse
      enquanto (s != 'vazio')
      escreval("A porcentagem de crianças mortas nesse período é: ", (((m+f)*100))/ncp));
      escreval("A porcentagem de crianças do sexo masculino, mortas nesse período é: ", (((m)*100))/ncp));
      escreval("A porcentagem de crianças que viveram 24 meses ou menos é: ", (((vin4)*100))ncp));
fimalgoritmo