Imports System

Public module module1

    Public Sub Main()

        Dim petrol as boolean = false

        Dim SizeLarge as boolean = false

        Dim Distance as decimal = 0

        Dim CO2 as decimal = 0

        Const GreaterPetrol as decimal = 0.296

        Const LesserPetrol as decimal = 0.208

        Const GreaterDiesel as decimal = 0.236

        Const LesserDiesel as decimal = 0.176

        Console.Writeline ("Is your Automobile Petrol?")

        Console.Writeline ("Input YES or NO")

        if Console.ReadLine = "YES" then 

            petrol = true

        else

            petrol = false

        end if

        Console.writeline("is ur Automobile greater than 2 liters?")

        Console.Writeline("Input YES or NO")

            if Console.Readline = "YES" then

                SizeLarge = true

            else

                SizeLarge = false

            end if

        Console.Writeline("Type average Mileage")

            Distance = Console.Readline()

            If petrol = true then

                If SizeLarge = true then 

                    CO2 = GreaterPetrol * Distance / 1000

                else

                    CO2 = LesserPetrol * Distance / 1000

                end if

            else

                If SizeLarge = true then

                    CO2 = GreaterDiesel * Distance / 1000

                else

                    CO2 = LesserDiesel * Distance / 1000

                end if

            end if

            Console.Writeline (CO2)

    End Sub

End Module