delphi множества

Ответ от Jurii[гуру]
var A, B, D : Set of Char; C : Char; begin ...Заполнить нужно! Но как заполнить не сказано. { 1 } for C := 'a' to 'z' do begin if (UpCase(C) in A) and (UpCase(C) in B) then Write(UpCase(C)); if (C in A) and (C in B) then Write(C); end; WriteLn; { 2 - во множество значение может входить только 1 раз !!!} { 3 } for C := '0' to '9' do if (C in A) and not(C in B) then Write(C); WriteLn; end;