printf("Bem vindo ao cálculo de materiais");
comprimento=input("Digite o comprimento do terreno a ser concretado em metros: ");
larg=input("Digite a largura do terreno a ser concretado em metros: ");
compr2=input("Digite o comprimento do terreno a não ser concretado em metros: ");
larg2=input("Digite a largura do terreno a não ser concretado em metros: ");
alt=input("Digite a altura do terreno a ser concretado em centímetros: ");
a1=(comprimento*larg);
a2=(compr2*larg2);
alt2=(alt/100);
vterreno=((a1-a2)*alt2);
printf("O volume a ser concretado é de: %2.2f m³", vterreno);
resposta=input("Será usado algum aditivo no concreto? Responda com sim ou não: ", "string");
if (resposta=="sim") then
    aditivo=input("Digite o tipo de aditivo a ser usado: ", "string");
    areia1=input("Digite o percentual de areia a ser usada no concreto: ");
    vareia=((areia1/100)*vterreno);
    brita1=input("Digite o percentual de brita a ser usada no concreto: ");
    vbrita=((brita1/100)*vterreno);
    aditivo1=input("Digite o percentual de aditivo a ser usado no concreto: ");
    vaditivo=((aditivo1/100)*vterreno);
    cimento1=(100-areia1-brita1-aditivo1);
    vcimento=((cimento1/100)*vterreno);
    precoareia=input("Informe o preço da areia por metro cúbico: ");
    valorareia=(precoareia*vareia);
    precobrita=input("Informe o preço da brita por tonelada: ");
    tipobrita=input("Informe o tipo de brita a ser usada, tipo0, tipo1 ou tipo2?: ", "string");
    denbrita=input("Informe a densidade da brita a ser usada: ");
    massabrita=(denbrita*vbrita);
    valorbrita=(massabrita*precobrita);
    precocimento=input("Informe o preço do saco de cimento de 50 kg: ");
    dencimento=input("Informe a densidade do cimento: ");
    valorcimento=(((dencimento*vcimento)*1000)/50);
    precoaditivo=input("Informe o preço da tonelada do aditivo: ");
    denaditivo=input("informe a densidade do aditivo: ");
    massaaditivo=(denaditivo*vaditivo);
    valoraditivo=(massaaditivo*precoaditivo);

     printf("Será usado %2.2f m³ de areia, que custará R$ %2.2f reais, %2.2f m³ de brita, que custará R$ %2.2f reais, %2.2f  m³ de aditivo  que custará R$ %2.2f reais e %2.2f m³ de cimento, que custará R$ %2.2f reais.", vareia, valorareia, vbrita, valorbrita, vaditivo, valoraditivo, vcimento, valorcimento);

        else (resposta=="não")
        areia1=input("Digite o percentual de areia a ser usada no concreto: ");
        vareia=((areia1/100)*vterreno);
        brita1=input("Digite o percentual de brita a ser usada no concreto: ");
        vbrita=((brita1/100)*vterreno);
        cimento1=(100-areia1-brita1-aditivo1);
        vcimento=((cimento1/100)*vterreno);
        precoareia=input("Informe o preço da areia por metro cúbico: ");
        valorareia=(precoareia*vareia);
        precobrita=input("Informe o preço da brita por tonelada: ");
        tipobrita=input("Informe o tipo de brita a ser usada, tipo0, tipo1 ou tipo2?: ", "string");
        denbrita=input("Informe a densidade da brita a ser usada: ");
        massabrita=(denbrita*vbrita);
        valorbrita=(massabrita*precobrita);
        precocimento=input("Informe o preço do saco de cimento de 50 kg: ");
        dencimento=input("Informe a densidade do cimento: ");
        valorcimento=(((dencimento*vcimento)*1000)/50);
        printf("Será usado %2.2f m³ de areia, que custará R$ %2.2f reais, %2.2f m³ de brita, que custará R$ %2.2f reais e %2.2f m³ de cimento, que custará R$ %2.2f reais.", vareia, valorareia, vbrita, valorbrita, vcimento, valorcimento);
end