Var A,B: set of char; x: char; i:integer;
begin
  A:=['A','B'..'Z'];
  B:=[];
  writeln ('x');
  readln(x);
  B:=A-[x];
  B:=A+[x];
  writeln ('множество B') ;
  for i:= 0 to 255 do
  begin if char(i)In B then
  write (char (i));
    end;
  readln
end

Var
 A,B: set of char;
 x: char;
 i:integer;
begin
  A:=['A'..'M'];
  writeln('Set A:') ;
  for i:= 65 to 90 do
   if chr(i) in A then write(chr(i)+' ');
  Writeln;
  write('x (A..M): ');
  readln(x);
  B:=A-[x];
  writeln('Set B (-):') ;
  for i:= 65 to 90 do
   if chr(i) in B then write(chr(i)+' ');
  writeln;
  write('x (N..Z): ');
  readln(x);
  B:=A+[x];
  writeln('Set B (+):') ;
  for i:= 65 to 90 do
   if chr(i) in B then write(chr(i)+' ');
  readln
end.