void TForm1::Plotas()
 {
  double D[50], t1, t2, t3;
  a = 50; t1 = 0; t2 = 0; t3 = 0; int u = 0;
  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) /2; u += 1; }
          if (t2*t2 + t3*t3 == t1*t1) { D[u] = (t2 * t3) /2; u += 1; }
          if (t1*t1 + t3*t3 == t2*t2) { D[u] = (t1 * t3) /2; u += 1; }

        }
     }
  }


}