RosettaCodeData/Task/Loops-For-with-a-specified-step/PascalABC.NET/loops-for-with-a-specified-step.pas
2024-07-13 15:19:22 -07:00

7 lines
113 B
ObjectPascal

begin
for var i:=1 to 10 step 2 do
Print(i);
Println;
for var i:=20 to 1 step -3 do
Print(i);
end.