Algoritmo Programacion

“hacer un algoritmo dirigido a un depósito de materiales de construcción que muestre las” “cotizaciones de los diferentes insumos que esta vende, para diferentes clientes. Los materiales” “que seofrecen son: ACERO=80800 $ MT CUADRADOS, ADITIVOS= 19900$ MT CUBICOS,” “CEMENTO=59900 $ BULTO POR 40 KG, CUBIERTA DE ACCESORIOS= 38 400 METROS” “CUADRADOS, LADRILLO= 1200$ UNIDAD, PISO= 15300$ MTCUADRADO”.
“Si la edad del cliente está comprendida entre 35 y 45 años hacer un descuento del 15% sobre el” “valor de la cotización. Si el total es mayor a 1 000000 mostrar el total y nombre”
Module module1
Submain()

Dim nombre, direcc ass string
Dim tel, edad, materia, cant, sw ass integer
Dim tot1, tot2, tot3, tot4, tot5, tot6, acu, tgcomi, des, tot ass double
Sw=1
Tgcomi=0

While(sw=1)Console.readline(“ ingrese nombre”)
Nombre=console. Readline()
Console.readline(“ ingrese telefono”)
tel=console. Readline()
Console.readline(“ ingrese edad”)
edad=console. Readline()Console.readline(“ ingrese dirección”)
direcc=console. Readline()
Console.readline(“ ingrese especificación de materiales: 1: acero, 2: aditivo,3: cemento,4: cubierta de accesorios, 5: ladrillo,6: piso”)materia=console. Readline()
select case(materia)
case 1: (materia=1)
console.readline(“ digite cantidad necesaria de acero valor metro cuadrado 80800 $”)
cant=console.readline()
tot1=(cant*80800)acu=(acu+tot1)

case 2: (materia=2)
console.readline(“ digite cantidad necesaria de aditivo valor metro cubico 19900 $”)
cant=console.readline()
tot2=(cant*19900)
acu=(acu+tot2)

case 3:(materia=3)
console.readline(“ digite cantidad necesaria de cemento valor bulto por 40 kg 59900 $”)
cant=console.readline()
tot3=(cant*59900)
acu=(acu+tot3)

case 4: (materia=4)
console.readline(“digite cantidad necesaria de cubierta de accesorios valor metro cuadrado 38400 $”)
cant=console.readline()
tot4=(cant*38400)
acu=(acu+tot4)

case 5: (materia=5)
console.readline(“ digite...