void TForm1::Skaiciuoti(Double D[])
 { double t1 = 0;
   double t2 = 0;
   double t3 = 0;
   int l = 0;
    Memo1->Lines->Clear();
        Memo2->Lines->Clear();
        Memo3->Lines->Clear();
 for (int i = 0; i < a; i++)
    for (int j = 0; j < a; j++)
     if ( j != i )
      for (int k = 0; k < a; k++)  if (( k != j) && ( k != i) ) {
        abs(t1 = pow(pow(X[j] - X[i], 2.0) + pow(Y[j] - Y[i],2.0), 0.5));
        abs(t2 = pow(pow(X[k] - X[j], 2.0) + pow(Y[k] - Y[j],2.0), 0.5));
        abs(t3 = pow(pow(X[i] - X[k], 2.0) + pow(Y[i] - Y[k],2.0), 0.5));
        Memo1->Lines->Add(t1);
        Memo2->Lines->Add(t2);
        Memo3->Lines->Add(t3);

        if ( (t1*t1 + t2*t2 == t3*t3)  ) {
          T[l] = t1 * t2 / 2;
          l++;
          }
        else if ( (t1*t1 + t3*t3 == t2*t2)  ) {
          T[l] = t1 * t3 / 2;
          l++;

          }
         else if ( (t2*t2 + t3*t3 == t1*t1)   )  {
          T[l] = t2 * t3 / 2;
          l++;

          }  }
          for ( l = 0; l < mas; l++)          Memo4->Lines->Add(T[l]);
                     }