tasks a-s

Task/Remove-duplicate-elements/Seed7/remove-duplicate-elements.seed7

@@ -0,0 +1,13 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    const array integer: data is [] (1, 3, 2, 9, 1, 2, 3, 8, 8, 1, 0, 2);
+    var set of integer: dataSet is (set of integer).value;
+    var integer: number is 0;
+  begin
+    for number range data do
+      incl(dataSet, number);
+    end for;
+    writeln(dataSet);
+  end func;