fork(1) download
  1. Imports System
  2.  
  3. Public Class Count_To
  4. Public Shared Sub Main()
  5. Dim n As Integer, line as Integer
  6. line = Console.Readline()
  7. n = 0
  8. Do While n <> line
  9. n = n + 1
  10. System.Console.WriteLine(n)
  11. Loop
  12. End Sub
  13. End Class
Success #stdin #stdout 0.04s 24176KB
stdin
2
stdout
1
2