program z12_14;
type
ocen=set of 0..10;
var
a,b,c: array[1..100] of integer;
sa,sb,sc,x,y,r: ocen;
i,na,nb,nc,min,h,k:integer;
begin
write('Введите количество оценок по информатике у первого ученика ');
readln(na);
for i:=1 to na do
begin
write('введите ',i,' оценку ');
readln(a[i]);
end;
write('Введите количество оценок по информатике у второго ученика ');
readln(nb);
for i:=1 to nb do
begin
write('введите ',i,' оценку ');
readln(b[i]);
end;
write('Введите количество оценок по информатике у третьего ученика ');
readln(nc);
for i:=1 to nc do
begin
write('введите ',i,' оценку ');
readln(c[i]);
end;
for i:=1 to na do
include(sa,a[i]);
for i:=1 to nb do
include(sb,b[i]);
for i:=1 to nc do
include(sc,c[i]);
x:=sa+sb+sc;
y:=sa*sb*sc;
r:=x-y;
Write('Множество, имеющихся у учеников оценок');
for i:=0 to 10 do
if i in x then write(i:3);
writeln;
Write('Множество оценок, встечающихся не более чем у двух учеников');
for i:=0 to 10 do
if i in r then write(i:3);
End.