algoritmo "Contatelefonica"
// Função : Calculo de total do valor de conta telefonica
// Autor : Leonardo Ferreira Santos
// Data : 23/04/2018
// Seção de Declarações
var
// Declaração de variáveis
pconsumidos, gastosp, extras, valor, total, iss :real
tcddd, tsddd, ddd :inteiro
cliente, uf :caractere
inicio

// Entrada de dados
escreva("Informe o nome do Cliente: ")
leia(cliente)
escreva("Informe o telefone, com 9 dígitos sem parêntesis nem hífen: ")
leia(tcddd)
escreva("Informe a quantidade de pulsos consumidos: ")
leia(pconsumidos)
escreva("Informe o valor dos serviços extras: ")
leia(extras)
// Calculo 1
ddd <- tcddd \ 10000000
tsddd <- tcddd % 10000000
// Calculo 2
se pconsumidos <= 100 entao
gastosp <- 0
senao
       se pconsumidos >= 101 e <= 1000 entao
       gastosp <- 100
       senao
       gastosp <- pconsumidos * 0.05
       fimse
fimse

// Calculo 3
valor <- 23.40 + gastosp + extras

// Calculo 4
se ddd = 11 entao
iss <- valor * 0.5/100
uf <- "São Paulo"
    se ddd = 21 entao
    issrj <- valor * 0.15/100
    uf <- "Rio de Janeiro"
          se ddd = 31 entao
          iss <- 0
          uf <- "Minas Gerais"
          senao
          iss <- valor * 2/100
          uf <- "Demais UFs"
          fimse
    fimse
fimse

// Calculo 5
total <- valor + iss

// Saída de dados
escreval("O cliente ", cliente)
escreval("De número telefonico ", tsddd)
escreval("Pertence a UF de ", uf)
escreva("Tem como total de sua conta o valor de ", total)
escreva(" reais")


fimalgoritmo