Stuff

void TForm1::Plotas()
 {
  double D[50], t1, t2, t3;
  t1 = 0; t2 = 0; t3 = 0; int u = 0; int a = 50;
  for (int i = 0; i < a; i++) {
     for (int j = 0; j < a; j++) {
        for (int k = 0; k < a; k++) {

          t1 = sqrt((X[j] - X[i])*(X[j] - X[i]) + (Y[j] - Y[i])*(Y[j] - Y[i]));
          t2 = sqrt((X[k] - X[j])*(X[k] - X[j]) + (Y[k] - Y[j])*(Y[k] - Y[j]));
          t3 = sqrt((X[i] - X[k])*(X[i] - X[k]) + (Y[i] - Y[k])*(Y[i] - Y[k]));
          if ((t1*t1 + t2*t2) == t3*t3) { D[u] = (t1 * t2) /(double)2; u += 1; }    //
          else if ((t2*t2 + t3*t3) == t1*t1) { D[u] = (t2 * t3) /(double)2; u += 1; }      //
          else if ((t1*t1 + t3*t3) == t2*t2) { D[u] = (t1 * t3) /(double)2; u += 1; }        //
              }
     }
  }
   for (int t = 0; t < u; t++) Memo1->Lines->Add(D[t]);

}