fpc/tests/tbs0083.pp
1998-12-02 13:05:01 +00:00

9 lines
78 B
ObjectPascal

var
s1 : set of char;
c1,c2,c3 : char;
begin
s1:=[c1..c2,c3];
end.