Imports System

Public Module Module1

    Public Sub Main()

        Dim FType as integer

        FType = 0

        Dim ESize as integer

        ESize = 0 

        Dim CO2 as decimal

        CO2 = 0

        Dim D as integer

        D = 0

        Console.Writeline("Enter fuel type.(1 = diesel, 0 = Petrol)")

        FType = Console.ReadLine()

        Console.Writeline("Enter engine size (1 = > 2 litres, 0 = < 2 litres)")

        Esize = Console.Readline()

        Console.Writeline("Enter distance travelled (km)")

        D = Console.Readline 

        If FType = 1 and Esize = 1 then

            CO2 = 0.296

        Elseif Ftype = 1 and Esize = 0 then

            CO2 = 0.208

        Elseif Ftype = 0 and Esize = 1 then

            CO2 = 0.236

        Elseif Ftype = 0 and Esize = 0 then

            CO2 = 0.176

        End if

        Console.Writeline("The vehicle will emit " & CO2 / 1000 * D & " tonnes Co2.")

    End Sub

    Public Sub Main2()

        Dim FType as integer

        FType = 0

        Dim ESize as integer

        ESize = 0 

        Dim CO2 as decimal

        CO2 = 0

        Dim D as integer

        D = 0

        Console.Writeline("Enter fuel type.(1 = diesel, 0 = Petrol)")

        FType = Console.ReadLine()

        Console.Writeline("Enter engine size (1 = > 2 litres, 0 = < 2 litres)")

        Esize = Console.Readline()

        Console.Writeline("Enter distance travelled (km)")

        D = Console.Readline 

        If Ftype = 1 then

        If Esize = 1 then

        CO2 = 0.296

        else CO2 = 0.208        

        End if 

        End if

        If Ftype = 0 then

        If Esize = 1 then

        CO2 = 0.236

        else CO2 = 0.176        

        End if 

        End if

        Console.Writeline("The vehicle will emit " & CO2 / 1000 * D & " tonnes Co2.")

    End sub

End Module