Program P1;
Type Sport=(volleyball,basketball,tennis,boxing,swimming);
Const n=5;
Sp:array[Sport]of string[10]=('волейбол','баскетбол','тенис','бокс','плавание');

var stud:array [1..n] of set of Sport;
m:set of Sport; s:Sport; i,j:byte;

Begin
randomize;
for i:=1 to n do
 for j:=1 to random(10) do stud[i]:=stud[i]+[Sport(random(n))];
for i:=1 to n do begin
  write(i,' студент : ');
  for s:=volleyball to swimming do
   if s in stud[i] then write(Sp[s]:12);
  writeln;
 end;
writeln;
m:=[volleyball..swimming];
for i:=1 to n do m:=m*stud[i];
writeln('Все студенты занимаются:');
for s:=volleyball to swimming do
  if s in m then write(Sp[s]:12);
End.