Imports System
Public Module Module1
Public Sub Main()
'Gets 4 integers'
dim X, X2, Y, Y2 as integer
X = console.readline()
X2 = console.readline()
Y = console.readline()
Y2 = console.readline()
'Checks if integers have a remainder when added and divided by 2'
If (X + X2) mod 2 = 0 then
If (Y + Y2) mod 2 = 0 then
Console.writeline("Same colour")
else
console.writeline("different colour")
End if
End Sub
End Module