Imports System
Public Class Test
Public Shared Sub Main()
Dim n As Integer
n = Console.ReadLine
Do While n <>10
System.Console.WriteLine(n)
n = Console.ReadLine
Loop
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIG4gQXMgSW50ZWdlcgoJCW4gPSBDb25zb2xlLlJlYWRMaW5lCgkJRG8gV2hpbGUgbiA8PjEwCgkJCVN5c3RlbS5Db25zb2xlLldyaXRlTGluZShuKQoJCQluID0gQ29uc29sZS5SZWFkTGluZQoJCUxvb3AKCUVuZCBTdWIKRW5kIENsYXNz