4_63

algoritmo ChupaMeuPintoEntaoSuaV()
   declare anon, i, m, f, vin5, cr, sp:inteiro;
   declare s:literal;
   faca
         escreva("Informe o seu ano de nascimento: ");
         leia(anon);
         se (anon != 0) entao
            se (anon < 1993) entao
               vin5 <- vin5 + 1;
            fimse
            i <- i + 1
            escreva("Informe seu sexo: ");
            leia(s);
            se (s == 'M') entao
               m <- m + 1;
            senao
                 f <- f + 1;
            fimse
            escreva("Código de registro: ");
            leia(cr);
            se (cr == 0) entao
               sp <- sp + 1;
            fimse
         fimse
   enquanto (anon != 0)
   escreval("A percentagem de motoristas com menos de 25 anos é: ", ((100*vin5)/i));
   escreval("A percentagem de mulheres é: ", ((100*f)/i));
   escreval("A percentagem de motoristas com registro fora de SP:", ((100*sp)/i));
fimalgoritmo