Компьютеры нужно объединить в три разные сети. Размеры сети должны быть 3, 6 и 11. Компьютеров всего 20. Сколько вариантов создания сетей?

Var i, j, simple_n, res_n : integer;
Res, Simple: array[1..100] of integer;
Found:boolean;
Begin
 
  for i := 2 to 200 do begin
    found := false;
    for j := 1 to simple_n do
      found := found or (i mod Simple[j] = 0);
     
    if found and (i mod 2 = 1) then begin
      res_n := res_n + 1;
      Res[res_n] := i;
      writeln('Res = ',Res[res_n]:4);
    end;
   
    if not found then begin
      simple_n := simple_n + 1;
      Simple[simple_n] := i;
      writeln('Simple = ',Simple[simple_n]:4);
    end;
  end;
 
  for i := 1 to res_n do
    write(Res[i]:4);
End.

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.