Data update

Task/Set/Delphi/set.pas

@@ -0,0 +1,25 @@
+program Set_task;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils,
+  Boost.Generics.Collection;
+
+begin
+  var s1 := TSet<Integer>.Create([1, 2, 3, 4, 5, 6]);
+  var s2 := TSet<Integer>.Create([2, 5, 6, 3, 4, 8]);
+  var s3 := TSet<Integer>.Create([1, 2, 5]);
+
+  Writeln('S1 ', s1.ToString);
+  Writeln('S2 ', s2.ToString);
+  Writeln('S3 ', s3.ToString, #10);
+
+  Writeln('4 is in S1? ', s1.Has(4));
+  Writeln('S1 union S2 ', (s1 + S2).ToString);
+  Writeln('S1 intersection S2 ', (s1 * S2).ToString);
+  Writeln('S1 difference S2 ', (s1 - S2).ToString);
+  Writeln('S3 is subset S2 ', s1.IsSubSet(s3));
+  Writeln('S1 equality S2? ', s1 = s2);
+  readln;
+end.