fork download
copy 
  1. program ideone;
  2.  
  3. {$macro on}
  4. {$define doit:=do begin}
  5. {$define thenb:=then begin}
  6. var
  7.   i : integer;
  8. begin
  9. 	(* your code goes here *)
  10.   for i := 0 to 10 doit 
  11.      if i and 1 <> 0 thenb 
  12.        writeln(i);
  13.       end;
  14.   end;
  15. end.
Success #stdin #stdout 0s 5376KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
3
5
7
9
https://ideone.com/4usWEU
language:
Pascal (fpc 3.0.4)
created:
3 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!