Module Module1

    Sub Main()
        Dim a, b, sum, sumin As Integer
        Console.WriteLine("enter first distance in feet")
        a = Console.ReadLine()
        Console.WriteLine("enter second distance in feet")
        b = Console.ReadLine
        sum = a + b
        Console.WriteLine("sum of two distance=" & sum & "feet")
        sumin = sum * 12
        Console.WriteLine("sum of two distance=" & sumin & "inch")
        Console.ReadKey()


    End Sub

End Module
