program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows,
  System.Threading;


type
  TOneClassTthread = class(TThread)
  protected
    procedure Execute; override;
  end;



var
  SI: TSystemInfo;
  MyArrayThread: array [0..10] of TOneClassTthread;
  I: Integer;
  A: Integer;
{ TOneClassTthread }

procedure TOneClassTthread.Execute;
begin
  inherited
  sleep(200);
  A := A + 1;

  if Terminated then
  MyArrayThread[i].Free;

  Synchronize(procedure
  begin
    Writeln('qewe')
  end);

end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

    // определить количество ядер процессора
    I:= System.CPUCount;
    Writeln(IntToStr(I));
    // ограничение максимального количества потоков

    Writeln(IntToStr(2*I));

    // создание потоков

    A:= 0;

    for I := 0 to 2*System.CPUCount - 1 do
    begin
      MyArrayThread[i] := TOneClassTthread.Create(True);
      MyArrayThread[i].Priority := tpNormal;
    end;

    for I := 0 to 2*System.CPUCount - 1 do
    begin
      MyArrayThread[i].Start;
    end;

   { if A = 7 then
    begin
      for I := 0 to 2*System.CPUCount - 1 do
      begin
        MyArrayThread[i].Terminate;
      end;
      Writeln(IntToStr(A));
    end; }

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

  end.