fork download
  1. Imports System
  2.  
  3. Public Class Test
  4. Public Shared Sub Main()
  5. Dim n As Integer
  6. n = Console.ReadLine
  7. Do While n <> 42
  8. System.Console.WriteLine(n)
  9. n = Console.ReadLine
  10. Loop
  11. End Sub
  12. End Class
Success #stdin #stdout 0.03s 26576KB
stdin
1
2
3
42
10
stdout
1
2
3