{$x+}
begin
  for var i:=0 in [1..3] to True do
    WriteLn(i);
  //False
  //True
end;


{$x+}
begin
  for var i:Int32 in [1..3] do
    WriteLn(i);
  //1
  //2
  //3
end;


{$x+}
begin
  for var i:=0 in [1..3] do
    WriteLn(i);
  //Compilation error: "Found unexpected token "Do" at line 3, column 27"
end;

//==========| not extended |==========//

var i:Int32;
begin
  for i in [1..3] do
    WriteLn(i);
  //1
  //2
  //3
end;


var b:Boolean;
begin
  for b:=0 in [1..3] to True do
    WriteLn(b);
  //False
  //True
end;


var i:Int32;
begin
  for i:=0 in [1..3] do
    WriteLn(i);
  //Compilation error: "Variable expected at line 3, column 23"
end;