Лабораторные работы / Laba4 / Sp1

Program IndexExp;
uses crt;
var
	a,b,c, d:  set of char; {ЋЎк塞 ЇҐаҐ¬Ґ­­лҐ}
	ch: char;  {‘зсвзЁЄ}

begin
	a := ['a','b','c','d','e','f'];
	b := ['a','b','g','h', 'i']; {‡ ЎЁў Ґ¬ ¬­®¦Ґбвў }
	c := ['b','d', 'h', 'j', 'k'];
	d:=a+b-c;
	write ('Њ­®¦Ґбвў®    '); 
	for ch := #0 to #255 do  {‚лў®¤  }
		if ch in a then write(ch, ' '); 
	writeln;write ('Њ­®¦Ґбвў® b  ');
	for ch := #0 to #255 do  {‚лў®¤ Ў}
		if ch in b then write(ch, ' ');
	writeln;write ('Њ­®¦Ґбвў® c  ');
	for ch := #0 to #255 do {‚лў®¤ б}
		if ch in c then write(ch, ' ');
	writeln;write ('Њ­®¦Ґбвў® d=a+b-c   ');
	for ch := #0 to #255 do  {‚лў®¤ ¤}
		if ch in d then write(ch, ' ');
	readln;
end.