14 lines
336 B
Plaintext
14 lines
336 B
Plaintext
$ 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;
|