Лабораторные работы / 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.