Определить количество остроугольных треугольников, которые можно построить на множестве случайных точек - Turbo Pascal - Ответ 6583369

Program O;
Uses Graph,Crt;
const
   n = 10;
type
   mas = array[1..n] of longint;
var
   i,j,k,l:integer;
   x,y:mas;
 
procedure iniG;
var
   Driv,Mode:integer;
   Path:string;
begin
   Driv:= Detect;
   Mode:= VGAHi;
   Path:= 'C:\tp\bgi';
   InitGraph (Driv,Mode,Path);
   if GraphResult < 0 then Halt (1);
end;
 
procedure ini;
begin
   SetColor(11);
   for i:= 1 to n do begin
      x[i]:= random(300)+170;
      y[i]:= random(300)+90;
      circle(x[i],y[i],2)
   end
end;
 
function R(x,y,x2,y2:longint):real;
begin
   R:= sqrt(sqr(x2-x) + sqr(y2-y))
end;
 
procedure wer;
var a,b,c: real;
    a1,b1,c1: boolean;
begin
   l:= 0;
   for i:= 1 to n-2 do
   for j:= i+1 to n-1 do
   for k:= j+1 to n do begin
      a:= R(x[i],y[i],x[j],y[j]);
      b:= R(x[i],y[i],x[k],y[k]);
      c:= R(x[j],y[j],x[k],y[k]);
      a1:= sqr(a) < sqr(b)+sqr(c);
      b1:= sqr(b) < sqr(a)+sqr(c);
      c1:= sqr(c) < sqr(a)+sqr(b);
      if a1 and b1 and c1 then inc(l);
   end
end;
 
begin
   randomize;
   iniG;
   ini;
   wer;
   SetColor(14);
   OutTextXY(10,10,'Press_Enter');
   readln;
   CloseGraph;
   writeln(l)
end.