Module _20190421

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Select Case sRead
            Case "A"
                Console.WriteLine("T")
            Case "T"
                Console.WriteLine("A")
            Case "C"
                Console.WriteLine("G")
            Case "G"
                Console.WriteLine("C")
        End Select

    End Sub

End Module