Imports System

public delegate sub a1()                

Public Module Module1

    Public Sub Main()

            dim a as a1

            a = new a1(addressof an1)

            a()

    End Sub

        sub an1()

            console.writeline("Enter first value")

            dim a as integer

            a = console.readline()

            console.writeline("Enter seconed value:")

            dim b as integer =

            b = console.readline()

            dim c as integer

            c = a * b 

            console.writeline("The product is:")

            console.writeline(c)

            if c = 12 then

                console.writeline("ab12")

            end if 

        end sub

End Module