Não testei, verifique se esta correto.
algoritmo "CALCULAR JUROS"// Função :// Autor :Júnior// Data : 06/05/2015// Seção de Declaraçõesvar VALORATUALIZADO:REAL CALC1: REAL CALC2:REAL QTDATRASO:inteiro QTDPARCELA:inteiro RESPOSTA1:caractere VRDEBITO:REALinicio// Seção de ComandosESCREVAL("VALOR ORIGINAL DO DÉBITO?")LEIA(VRDEBITO)ESCREVAL("VOCÊ DESEJA PAGAR EM QUANTAS PARCELAS?")LEIA(QTDPARCELA)ESCREVAL("DEPOIS DE 30 DIAS VOCÊ TEM QUANTOS DIAS DE ATRASO, CASO TENHA INFORME A QUANTIDADE, SE NÃO INFORME 0")LEIA(QTDATRASO)ESCREVAL("ATRASO A MAIS DE 30 DIAS, SE SIM DIGITE 1 SE NÃO DIGITE 0?")LEIA(RESPOSTA1)se (RESPOSTA1 = 1) então CALC1 <- VRDEBITO + ((VRDEBITO * 10 ) / 100) CALC2 <- CALC1 + (((VRDEBITO * 0.33) / 100) * QTDATRASO ) VALORATUALIZADO <- (CALC2 / QTDPARCELA)ESCREVAL("O VALOR ATUALIZADO É", QTDPARCELA ," VEZES DE: ", VALORATUALIZADO)se (RESPOSTA1 = 0) então CALC1 <- VRDEBITO + ((VRDEBITO * 10 ) / 100) VALORATUALIZADO <- (CALC1 / QTDPARCELA) ESCREVAL("O VALOR ATUALIZADO É", QTDPARCELA ," VEZES DE: ", VALORATUALIZADO)senao ESCREVAL("Erro na Operacao")fimsefimalgoritmo
Obs : tirar o til do então
Espero ter ajudado.