Python - techado en phyton

Algoritmo LlenadoTechosCalculos2
//Algoritmo para el calculo en la construccion de un techo
Definir areatechar Como Real
Escribir "Ingrese el dato para el ancho del techo"
Leer anchotech
Escribir "Ingrese el dato para el largo del techo"
Leer largotech
Escribir "¿Hay descuento? [S/N] S=Si N=No"
Leer Desc
Si Desc="S" o Desc="s" Entonces
Escribir "Ingrese ancho del Descuento"
Leer anchoDesc
Escribir "Ingrese largo del Desc"
Leer largoDesc
SiNo
Escribir "No hay descuento"
FinSi
areatech<-largotech*anchotech
areadesc <-largodesc*anchodesc
areatechar<-areatech-areadesc
Escribir "El area para ser techado es ", areatechar
//Escoger el tipo de techo que desea construir, en base a los datos ya obtenidos al cominezo (area para tecahr)
Definir vTipoTecho Como Caracter
//Opciones recolectadas bajo las gráficas estadisticas del INEI
Escribir "Escoja el tipo de techo que desea construir [M=madera|L=ladrillo/concreto|C=calamina|T=tejas]"
Leer vTipoTecho
//Tipos de techos y derivados en consideración de los mas usados en el Perú, asi como los que se encuentran en diversas tiendas comerciales
Segun vTipoTecho Hacer
'M','m':
Definir vmadera Como Caracter
Definir vmatotal, pagarmadera Como Real
Escribir "Designe el tipo de madera que desee usar [P=pino|S=cedro|O=otro]"
Leer vmadera
Segun vmadera Hacer
'P','p':
vmatotal<- redon(areatechar/0.592)
pagarmadera<- redon(vmatotal*49.40)
Escribir "La cantidad de madera a usar es:", vmatotal
Escribir "El total a pagar por las maderas es:", pagarmadera
'S','s':
vmatotal<- redon(areatechar/0.592)
pagarmadera<- redon(vmatotal*110)
Escribir "La cantidad de madera a usar es:", vmatotal
Escribir "El total a pagar por las maderas es:", pagarmadera
'O','o':
vmatotal<- redon(areatechar/0.592)
pagarmadera<- redon(vmatotal*80)
Escribir "La cantidad de madera a usar es:", vmatotal
Escribir "El total a pagar por las maderas es:", pagarmadera
De Otro Modo:
Escribir "Error"
Fin Segun
//sd
Definir estrucmadera, pagartotal, vigapoyo, extramadera Como Real
Definir diatrabajado Como Real
estrucmadera <- redon(areatechar/0.6)+1 //otro apoyo
vigapoyo<- [redon(anchotech/1.75)+redon(largotech/1.75)] - [redon(anchodesc/1.75)+redon(largodesc/1.75)] //la cantidad de apoyo a entrar
pagartotal1<- redon(pagarmadera+(estrucmadera*55))
pagartotal1<- (vigapoyo*90)+pagartotal1
Escribir "Los extras a pagar:"
Escribir "- Pago a trabajadores: 33 soles (por día)"
Escribir "- Costo por materiales: 800 soles"
Escribir "- Pago al capataz: 120 soles (por dia) "
Escribir "Ingrese los dias de trabajo"
Leer diatrabajado
extramadera<- (diatrabajado*33)+(diatrabajado*120)+800
pagartotal1<-extramadera+pagartotal1
Escribir "La cantidad de vigas de apoyo a usar es:", vigapoyo
Escribir "La cantidad de vigas de madera a usar es:", estrucmadera
Escribir "Los adicionales extras a pagar es:", extramadera
Escribir "El presupuesto final costeado para el techo es:",pagartotal1," soles"
'L','l':
Definir primerpi, segunpi, tercerpi, finalte, vtela Como Caracter
Definir vlatotal, pagarla Como Real
Escribir "Designe si el techo será en el primer (primerpi),segundo (segunpi),tercer (tercerpi) o la parte final de la casa (finalte)"
Leer vtela
Si vtela=primerpi Entonces
vlatotal<- redon(areatechar/0.09)
pagarla<- redon(vlatotal*2.40)
SiNo
Si vtela=segunpi Entonces
vlatotal<-redon(areatechar/0.09)
pagarla<-redon(vlatotal*2.60)
SiNo
Si vtela=tercerpi Entonces
vlatotal<-redon(areatechar/0.09)
pagarla<-redon(vlatotal*3.00)
SiNo
vlatotal<-redon(areatechar/0.09)
pagarla<-redon(vlatotal*3.20)
FinSi
FinSi
FinSi
Escribir "La cantidad de ladrillo a usar es:", vlatotal