Imports System

Public Module Module1

    Public Sub Main()

        dim a,b,c As Integer 

        dim d As integer=3

        dim e As integer=4

        dim f As integer=5 

        Console.WriteLine("Enter a 1st no:")

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

        Console.WriteLine("Enter a 2nd no:")

        b=Integer.Parse(Console.ReadLine())

        Console.WriteLine("Enter a 3rd no:")

        c=Integer.Parse(Console.ReadLine())

        If d>e then

            If d>f then

                Console.WriteLine("Greater is d")

            Else If e>f then

                    Console.WriteLine("Greater is e")

                Else

                    Console.WriteLine("Greater is f")

            End If

        'Else

            'Console.WriteLine("better luck next time")

    End If  

    End Sub

End Module