какие из этих имен встречаются во всех классах данной параллели которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном

uses Crt;
type
  names = (anya, masha, lyuba, olya, Lena, zhenya);
 
const
  mas: array[0..5] of string = ('anya', 'masha', 'lyuba', 'olya', 'Lena', 'zhenia');
 
var
  a, b, c: set of names;
  i: integer;
  k: names;
 
begin
  ClrScr;
  a := [anya, masha, lyuba];
  b := [anya, masha, olya];
  c := [anya, masha, Lena];
{----------}
  writeln('Est vo vseh klassah: ');
  for k := anya to zhenya do
  begin
    if (k in a * b * c) then
      write(mas[ord(k)], ' ');
  end;
  writeln;
  writeln;
 
  writeln('Net ni v odnom klasse: ');
  for k := anya to zhenya do
  begin
    if not (k in a + b + c) then
      write(mas[ord(k)], ' ');
  end;
  writeln;
  writeln;
 
 
  writeln('Est tolko v nekotoryh klassah: ');
  for k := anya to zhenya do
  begin
    if (k in a + b + c) and not (k in a*b*c) then
      write(mas[ord(k)], ' ');
  end;
  writeln;
  writeln;
 
  Readln
end.