begin
  var s := [1, 2, 3];
  foreach var x in s do
  begin
    var y := x + x;
  end;
end.