Imports System

Module Program
    Sub Main(args As String())
        Dim r As New System.Random
        Dim sInput As String = Console.ReadLine()
        Dim iRand As Integer = r.Next(0, sInput.Length - 3)
        Console.WriteLine(sInput.Substring(iRand, 3))


    End Sub
End Module
