11 lines
152 B
ObjectPascal
11 lines
152 B
ObjectPascal
unit set_unit1;
|
|
|
|
type TRealSet = set of real;
|
|
const set1 : set of char = ['1','2','3'];
|
|
|
|
procedure test2;
|
|
begin
|
|
writeln('set1 ','2' in set1);
|
|
end;
|
|
|
|
end. |