Программа на тему множества

uses Crt;
const Razmer = 10; kol = 6;
Var Medium, Extrasens, a: set of 0..Razmer;
       i: Integer;
begin ClrScr;
{Формируем случайным образом две шестёрки}
Randomize;
  Medium:= [];  Extrasens:= [];  {Формируем с нуля, т. е. с пуcтых множеств}
   for i:= 1 to kol do begin
Medium:= Medium + [Random(Razmer + 1)];  {Наращиваем по одному эл-ту в множестве Медиум}
Extrasens:= Extrasens + [Random(Razmer + 1)];  {То же,   для множества Ехтрасенс}
      end;  {для for}
a:= Medium * Extrasens;
   if a = [ ] then Write(' Не угадал ни разу')
       else begin
WriteLn(' Есть совпадения, вот они:');
{Распечатываем эл-ты множества  а:}
         for i:= 0 to Razmer do if i  in a then WriteLn(' ',i:3);
             end;  {else}
      ReadLn
end.

Есть совпадения, вот они:
     3   7   8
Или:  Не угадал ни разу

 Razmer в количестве 10 элементов
 Medium в количестве kol = 6
 Extrasens в количестве kol = 6

Write('Множество Medium:'); 
for i:=0 to Razmer do if i in Medium then Write(i,' ');
WriteLn;
 
Write('Множество Extrasens:'); 
for i:=0 to Razmer do  if i in Extrasens then Write(i,' ');
WriteLn;

8.  WriteLn(' Множество Medium');
9.  for i:= 0 to Razmer do
10.  Write(I,' ')

  Множество Medium
0   1  2  3  4  5  6  7  8  9  10
  Есть совпадения, вот они
5   8  9

  Множество Medium
0   1  2  3  4  5  6  7  8  9  10
          Множество Extrasens
1   2  3  4  5  6  7  8  9  10
  Есть совпадения, вот они
     2   3   7

uses Crt;
const Razmer = 10;
Var 
   Medium, Extrasens, a: set of 0..Razmer;
   i : integer;
begin
   ClrScr;
   WriteLn('Заполним множество Medium 4-мя константами.');
   Medium := [8, 2, 5, 3];  {множество Medium заполнили константами, 
                                         в множестве теперь ровно четыре элемента}
  WriteLn(' ЭТО НЕ Множество Medium: ');
  for i:=0 to Razmer do
      Write(i,' ');
  writeLn;
  {тут мы получим просто все числа от 0 до 10}
 
  WriteLn(' а вот это Множество Medium: ');
  for i:=0 to Razmer do
      if i in Medium then Write(i,' ');
  WriteLn;
 
  ReadLn
end.