From 6381b157afc4b8bb4c5f2e8aa95f032c585f5420 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Mon, 21 Feb 2022 17:40:32 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9F=D1=80=D0=B8=D0=BC=D0=B5=D1=80=20=D0=B8?=
 =?UTF-8?q?=20=D1=82=D0=B5=D1=81=D1=82=20for=20step?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 InstallerSamples/WhatsNew/3_8_3/for_step.pas | 15 +++++++++++++++
 TestSuite/for_step1.pas                      | 18 ++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 InstallerSamples/WhatsNew/3_8_3/for_step.pas
 create mode 100644 TestSuite/for_step1.pas

diff --git a/InstallerSamples/WhatsNew/3_8_3/for_step.pas b/InstallerSamples/WhatsNew/3_8_3/for_step.pas
new file mode 100644
index 000000000..686824fb8
--- /dev/null
+++ b/InstallerSamples/WhatsNew/3_8_3/for_step.pas
@@ -0,0 +1,15 @@
+type Days = (Mon,Tue,Wed,Thi,Fri,sat);
+
+begin
+  for var i:=1 to 5 step 2 do
+    Print(i);
+  Println;
+  
+  for var i:='5' to '2' step -2 do
+    Print(i);
+  Println;
+  
+  for var i:=Mon to Sat step 2 do
+    Print(i);
+  Println;
+end.
\ No newline at end of file
diff --git a/TestSuite/for_step1.pas b/TestSuite/for_step1.pas
new file mode 100644
index 000000000..642165846
--- /dev/null
+++ b/TestSuite/for_step1.pas
@@ -0,0 +1,18 @@
+type Days = (Mon,Tue,Wed,Thi,Fri,sat);
+
+begin
+  var l := new List<integer>;
+  for var i:=1 to 5 step 2 do
+    l.Add(i);
+  Assert(l.SequenceEqual(Arr(1,3,5)));
+  
+  var lc := new List<char>;
+  for var i:='5' to '2' step -2 do
+    lc.Add(i);
+  Assert(lc.SequenceEqual(Arr('5','3')));
+  
+  var ld := new List<Days>;
+  for var i:=Mon to Sat step 2 do
+    ld.Add(i);
+  Assert(ld.SequenceEqual(Arr(Mon,Wed,Fri)));
+end.
\ No newline at end of file