{$R+}
Type
  ONETWO = 1 .. 2;

type
  XT = (ONE,TWO); 
var x: XT;
var I: ONETWO;
begin
	I:=1;
	I:=I+1;
	writeln(I); //2
	I:=1+I;
	writeln(I); //3
	inc(I);
	writeln(I); //4
	inc(I);
	writeln(I);	//5
	
	x:=ONE;
	writeln(succ(x));
end.