RosettaCodeData/Task/Loops-For-with-a-specified-step/PascalABC.NET/loops-for-with-a-specified-step.pas

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.