fork download
  1. program ideone;
  2.  
  3. var
  4. i: integer;
  5. begin
  6.  
  7. for i := 0 to 0 do
  8. begin
  9. writeln(i);
  10. end;
  11.  
  12. end.
Success #stdin #stdout 0s 5304KB
stdin
Standard input is empty
stdout
0