fork download
copy 
  1. program ideone;
  2. var i : Integer;
  3. begin
  4. 	i := 1;
  5. 	while(i <= 10) do
  6. 	begin
  7. 		writeln(i);
  8. 		inc(i); { custom increment }
  9. 		inc(i);
  10. 	end;
  11. end.
Success #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
3
5
7
9
https://ideone.com/1Y5iz0
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!