QueryPerformanceFrequency(f); // вычисление частоты
    f:=round(f/1000000);
    
    QueryPerformanceCounter(b); // определение стартового количества тиков
    for i:=1 to a do for j:=1 to a do C[j] := pi * j * i;
    QueryPerformanceCounter(e); // определение конечного количества тиков
    
    _hi_OnEvent(onVihod, ('Умнож. в память'+';'+
       Int2Str(round((e-b)/f))+ // отображение  usec -- (e-b)/f
      ';'+Double2Str((e-b)/f/a/a)+';'+Int2Str(round((e-b)/a/a)))+';'+Int2Str(i-1)+'*'+Int2Str(j-1));