var
   s1 : set of char;
   c1,c2,c3 : char;

begin
   s1:=[c1..c2,c3];
end.