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 \ 100
valor <- 23.40 + gastosp + extras
total <- valor + iss
// 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
se ddd = 11 entao
iss <- valor * 5/1000
uf <- "São Paulo"
    se ddd = 21 entao
    issrj <- valor * 15/1000
    uf <- "Rio de Janeiro"
          se ddd = 31 entao
          iss <- 0
          uf <- "Minas Gerais"
          senao
          iss <- valor * 2/100
          uf <- "Demais UFs"
          fimse
    fimse
fimse
// Saída de dados
escreval("O cliente ", cliente)
escreval("De número telefonico ", tsddd)
escreval("pertence a UF de ", uf)
escreva("Dem como total de sua conta o valor de ", total)
escreva("reais")


fimalgoritmo