fork(4) download
copy 
  1. Type
  2.   ONETWO = 1 .. 2;
  3.  
  4. type
  5.   XT = (ONE,TWO); 
  6. var x: XT;
  7. var I: ONETWO;
  8. begin
  9. 	I:=1;
  10. 	I:=I+1;
  11. 	writeln(I); //2
  12. 	I:=1+I;
  13. 	writeln(I); //3
  14. 	inc(I);
  15. 	writeln(I); //4
  16. 	inc(I);
  17. 	writeln(I);	//5
  18.  
  19. 	x:=ONE;
  20. 	writeln(succ(x));
  21. end.
Success #stdin #stdout 0s 4356KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2
3
4
5
TWO
https://ideone.com/mtmPPq
language:
Pascal (fpc 3.0.4)
created:
4 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!