8 lines
90 B
ObjectPascal
8 lines
90 B
ObjectPascal
begin
|
|
var s := [1,2,3];
|
|
foreach var x in s do
|
|
begin
|
|
var y := x + x;
|
|
end;
|
|
end.
|