Option Strict On
Module problemA

    Sub Main()
        Dim prm1() As Integer = Array.ConvertAll(Of String, Integer)(Console.ReadLine.Split(" "c), AddressOf Integer.Parse)
        Dim prm2() As Integer = Array.ConvertAll(Of String, Integer)(Console.ReadLine.Split(" "c), AddressOf Integer.Parse)

        Console.WriteLine(Convert.ToInt32(prm1(0) <> prm2(0)))
    End Sub

End Module
