Imports System

Public Module Module1

    Public Sub Main()

        Dim DL as double

        Dim a as double

        Dim Li as double

        Dim Tf as double

        Dim Ti as double

        a=0.000017

        Li=100

        Tf = 10

        Ti = 40

        Console.Write("Dilatacion Lineal")

        a=Double.Parse(Console.ReadLine())

         DL=0.000017*100.0*(10-40)

    End Sub

End Module