pascalabcnet/TestSuite/for_step2.pas
Mikhalkovich Stanislav a03d33b586 3.8.3
2022-03-08 21:41:46 +03:00

8 lines
145 B
ObjectPascal

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.