pascalabcnet/TestSuite/for_step2.pas

8 lines
145 B
ObjectPascal
Raw Normal View History

2022-03-08 21:41:46 +03:00
begin
var l := new List<integer>;
for var i:=1 to 5 step 2 do
begin
l.Add(i);
end;
Assert(l.SequenceEqual(Arr(1,3,5)));
end.