program ideone;var i:integer;begin for i:=1 to 5 do begin write(2*i, ' ', i, ' '); end;end.
Standard input is empty
2 1 4 2 6 3 8 4 10 5
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!