IPTU // Algoritmo e programação

algoritmo "22"
// Em certo municipio, 30 proprietarios de imoveis estao em atraso com o pagamento do IPTU.
// - Escreva um algoritmo que calcule e escreva o valor da multa a ser paga por estes proprietarios,
//- considerando que:
//-Os dados de cada imovel
//- (identificacao,
//- valor do imposto
// e numero de meses em atraso)
//- deverao ser lidos do usuario.
//- As multas devem ser calculadas no valor de 1% por mes de atraso.
//- O algoritmo deve exibir: a identificacao de imovel,
//- valor do imposto,
//- a multa a ser paga e o total devido pelo proprietario (imposto + multa).
var
atraso: inteiro
multa, iptu, total: real
prop, imovel, ident: caractere

inicio
para atraso de 1 ate 30 faca
escreval ("NOME DO PROPRIETÁRIO (a)")
leia (prop)
escreval ("Dados do imóvel:")
leia (imovel)
escreval ("Número de [Identificação]")
leia (ident)
escreval ("Valor do IPTU")
leia (iptu)
escreval ("Meses em atraso")
leia (atraso)
multa <- (0.01 * atraso)
total <- (iptu + multa)
limpatela
escreval ("Imóvel: ",ident, " multa a ser paga ",multa, " R$")
escreval ("Total a ser pago pelo proprietário (a): ",prop, " é de: ",total, " R$")
escreval
fimpara