program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

begin
  try
  Writeln(System.CPUCount);
  readln;
    {
描述
代表检测到的CPU内核数。

CPUCount代表检测到的CPU内核数。}
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.