fork download
  1. program ideone;
  2. var i:integer;
  3. begin
  4. for i:=1 to 5 do begin
  5. write(2*i, ' ', i, ' ');
  6. end;
  7. end.
Success #stdin #stdout 0s 288KB
stdin
Standard input is empty
stdout
2 1 4 2 6 3 8 4 10 5