diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas
index 4a07b9fa0..a167be39a 100644
--- a/TestSuite/CompilationSamples/PABCSystem.pas
+++ b/TestSuite/CompilationSamples/PABCSystem.pas
@@ -1221,6 +1221,18 @@ function Random(maxValue: integer): integer;
 function Random(a, b: integer): integer;
 /// Возвращает случайное вещественное в диапазоне [0..1)
 function Random: real;
+/// Возвращает кортеж из двух случайных целых в диапазоне от 0 до maxValue-1
+function Random2(maxValue: integer): (integer,integer);
+/// Возвращает кортеж из двух случайных целых в диапазоне от a до b
+function Random2(a, b: integer): (integer,integer);
+/// Возвращает кортеж из двух случайных вещественных в диапазоне [0..1)
+function Random2: (real,real);
+/// Возвращает кортеж из трех случайных целых в диапазоне от 0 до maxValue-1
+function Random3(maxValue: integer): (integer,integer,integer);
+/// Возвращает кортеж из трех случайных целых в диапазоне от a до b
+function Random3(a, b: integer): (integer,integer,integer);
+/// Возвращает кортеж из трех случайных вещественных в диапазоне [0..1)
+function Random3: (real,real,real);
 
 ///-function Max(a: число, b: число): число;
 /// Возвращает максимальное из чисел a,b
@@ -3103,10 +3115,10 @@ const
   nmax = 100;
   nmax1 = 30;
 begin
-  if o is System.Reflection.Pointer then
-    Result := PointerToString(System.Reflection.Pointer.Unbox(o))
-  else if o=nil then
+  if o=nil then
     Result := 'nil' 
+  else if o is System.Reflection.Pointer then
+    Result := PointerToString(System.Reflection.Pointer.Unbox(o))
   else if (o.GetType = typeof(real)) or (o.GetType = typeof(decimal)) or (o.GetType = typeof(single)) then
     Result := FormatFloatNumber(o.ToString)
   else if (o.GetType = typeof(Complex)) then 
@@ -6716,63 +6728,27 @@ function Power(x, y: real): real := Math.Pow(x, y);
 
 function Power(x, y: integer): real := Math.Pow(x, y);
 
-function Power(x: BigInteger; y: integer): BigInteger;
-begin
-  Result := BigInteger.Pow(x, y)
-end;
+function Power(x: BigInteger; y: integer) := BigInteger.Pow(x, y);
 
-function Round(x: real): integer;
-begin
-  Result := Convert.ToInt32(Math.Round(x));
-end;
+function Round(x: real) := Convert.ToInt32(Math.Round(x));
 
-function RoundBigInteger(x: real): BigInteger;
-begin
-  Result := BigInteger.Create(Math.Round(x));
-end;
+function RoundBigInteger(x: real) := BigInteger.Create(Math.Round(x));
 
-function Trunc(x: real): integer;
-begin
-  Result := Convert.ToInt32(Math.Truncate(x));
-end;
+function Trunc(x: real) := Convert.ToInt32(Math.Truncate(x));
 
-function TruncBigInteger(x: real): BigInteger;
-begin
-  Result := BigInteger.Create(Math.Truncate(x));
-end;
+function TruncBigInteger(x: real) := BigInteger.Create(Math.Truncate(x));
 
-function Int(x: real): real;
-begin
-  //if x>=0 then
-  //  Result := Math.Floor(x)
-  //else Result := Math.Ceiling(x);
-  Result := x >= 0 ? Math.Floor(x) : Math.Ceiling(x);
-end;
+function Int(x: real) := x >= 0 ? Math.Floor(x) : Math.Ceiling(x);
 
-function Frac(x: real): real;
-begin
-  Result := x - Int(x);
-end;
+function Frac(x: real) := x - Int(x);
 
-function Floor(x: real): integer;
-begin
-  Result := Convert.ToInt32(Math.Floor(x));
-end;
+function Floor(x: real) := Convert.ToInt32(Math.Floor(x));
 
-function Ceil(x: real): integer;
-begin
-  Result := Convert.ToInt32(Math.Ceiling(x));
-end;
+function Ceil(x: real) := Convert.ToInt32(Math.Ceiling(x));
 
-function RadToDeg(x: real): real;
-begin
-  Result := x * 180 / Pi;
-end;
+function RadToDeg(x: real) := x * 180 / Pi;
 
-function DegToRad(x: real): real;
-begin
-  Result := x * Pi / 180;
-end;
+function DegToRad(x: real) := x * Pi / 180;
 
 procedure Randomize;
 begin
@@ -6784,10 +6760,7 @@ begin
   rnd := new System.Random(seed);
 end;
 
-function Random(MaxValue: integer): integer;
-begin
-  Result := rnd.Next(MaxValue);
-end;
+function Random(MaxValue: integer) := rnd.Next(MaxValue);
 
 function Random(a, b: integer): integer;
 begin
@@ -6795,10 +6768,15 @@ begin
   Result := rnd.Next(a, b + 1);
 end;
 
-function Random: real;
-begin
-  Result := rnd.NextDouble;
-end;
+function Random := rnd.NextDouble;
+
+function Random2(maxValue: integer) := (Random(maxValue),Random(maxValue));
+function Random2(a, b: integer) := (Random(a,b),Random(a,b));
+function Random2 := (Random,Random);
+function Random3(maxValue: integer) := (Random(maxValue),Random(maxValue),Random(maxValue));
+function Random3(a, b: integer) := (Random(a,b),Random(a,b),Random(a,b));
+function Random3 := (Random,Random,Random);
+
 
 function Max(a, b: byte): byte;
 begin
@@ -6920,30 +6898,18 @@ begin
   result := (i mod 2) <> 0;
 end;
 
-function Odd(i: integer): boolean;
-begin
-  result := (i mod 2) <> 0;
-end;
+function Odd(i: integer) := (i mod 2) <> 0;
 
 function Odd(i: BigInteger): boolean;
 begin
   Result := not i.IsEven;
 end;
 
-function Odd(i: longword): boolean;
-begin
-  result := (i mod 2) <> 0;
-end;
+function Odd(i: longword) := (i mod 2) <> 0;
 
-function Odd(i: int64): boolean;
-begin
-  result := (i mod 2) <> 0;
-end;
+function Odd(i: int64) := (i mod 2) <> 0;
 
-function Odd(i: uint64): boolean;
-begin
-  result := (i mod 2) <> 0;
-end;
+function Odd(i: uint64) := (i mod 2) <> 0;
 
 function Cplx(re,im: real) := new Complex(re,im);
 
diff --git a/TestSuite/yield2.pas b/TestSuite/yield2.pas
new file mode 100644
index 000000000..78c106a04
--- /dev/null
+++ b/TestSuite/yield2.pas
@@ -0,0 +1,15 @@
+function g: sequence of integer;
+begin
+  yield 1;
+  yield 2;
+end;
+function f: sequence of integer;
+begin
+  foreach var i in g do
+  begin
+    yield i;
+  end;
+end;
+begin
+  assert(f.ToArray[1] = 2);
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index d9159a5db..7b6d767ae 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -15933,7 +15933,7 @@ namespace PascalABCCompiler.TreeConverter
             }
 
             //expression_node from = convert_strong(_assign.from);
-            /// SSM исправление Саушкина 10.03.16
+            // SSM исправление Саушкина 10.03.16
             expression_node from;
             var fromAsLambda = _assign.from as function_lambda_definition;
             if (fromAsLambda != null)
@@ -15969,9 +15969,10 @@ namespace PascalABCCompiler.TreeConverter
                 {
                     var tt = to.type;
                     type_node elem_type = null;
+                    try_convert_typed_expression_to_function_call(ref from);
                     var b = FindIEnumerableElementType(from.type, ref elem_type);
                     if (!b)
-                        AddError(null, "FindIEnumerableElementType returns false");
+                        AddError(from.location, "CAN_NOT_EXECUTE_FOREACH_BY_EXPR_OF_TYPE_{0}", from.type.full_name);
 
                     var IEnumType = new template_type_reference(new named_type_reference("System.Collections.Generic.IEnumerable"), new template_param_list(new semantic_type_node(elem_type)));
                     if (to is class_field_reference)
@@ -15990,7 +15991,7 @@ namespace PascalABCCompiler.TreeConverter
                     }
                 }
             }
-            /// end
+            // end
 
             //SSM 4.04.16
             if (to.type is undefined_type)