fork download
  1. procedure main()
  2. local i
  3. i := 0
  4. repeat {
  5. writes(i, " ")
  6. i +:= 1
  7. if i >= 10 then break
  8. }
  9. write()
  10. end
Success #stdin #stdout 0.01s 5320KB
stdin
Standard input is empty
stdout
0 1 2 3 4 5 6 7 8 9