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