begin
  Arr(0).Select(
    i -> 
    begin
      Result := 0;
      for var i2 := 3 to 4 do
      begin
        //Print(i2);
        var a := i2;
        Print(a)
      end;
    end
  );
end.