Imports System

Public Module Module1

    Public Sub Main()

        dim num1,num2 as double

        Console.WriteLine("Enter Number 1")

        num1 = console.ReadLine()

        console.WriteLine("enter number 2")

        num2 = console.ReadLine()

        if num1 = 1 and num2 = 1 THEN 

            console.WriteLine("1")

        else

            console.WriteLine("0")

            end if 

    End Sub

End Module