Для каждой тройки этих отрезков, из которых можно построить треугольники, вычислить площадь данного треугольника"

Program  treugolnik;
  uses crt,graph;
  var a,b,c,d,s1,s2,s3,s4:real;
      gd,gm,nDeltaX,nDeltaY:integer;
      text:string;
 
  procedure Prorisovka(x,y,z:real; versh:string);
  var a1,h:real;
      txt:string;
  begin
    a1:=(x*x+z*z-y*y)/(2*x);
    h:=sqrt(z*z-a1*a1);
    line(nDeltaX,nDeltaY,round(x+nDeltaX),nDeltaY);
    line(round(x+nDeltaX),nDeltaY,round(a1+nDeltaX),round(h+nDeltaY));
    line(round(a1+nDeltaX),round(h+nDeltaY),nDeltaX,nDeltaY);
 
    outtextxy(nDeltaX,nDeltaY-10,versh[1]);
    outtextxy(round(x+nDeltaX),nDeltaY-10,versh[2]);
    outtextxy(round(a1+nDeltaX)+5,round(h+nDeltaY)+5,versh[3]);
 
    Str(x:3:0, txt);
    outtextxy(round(x/2)+nDeltaX-10,nDeltaY-20,txt);
    Str(y:3:0, txt);
    outtextxy(round(x-(x-a1)/2)+nDeltaX+5,round(h/2)+nDeltaY,txt);
    Str(z:3:0, txt);
    outtextxy(round(a1/2)+nDeltaX-30,round(h/2)+nDeltaY,txt);
    nDeltaY:=round(nDeltaY+h+50);
  end;
 
  procedure Ploshad(x,y,z:real; versh:string; var s:real);
  var p:real;
  begin
  p:=(x+y+z)/2;
  s:=sqrt(p*(p-x)*(p-y)*(p-z));
  Prorisovka(x,y,z,versh);
  end;
 
  begin
  clrscr;
  writeln('vvedite dliny otrezka a');
  readln(a);
   writeln('vvedite dliny otrezka b');
  readln(b);
   writeln('vvedite dliny otrezka c');
  readln(c);
   writeln('vvedite dliny otrezka d');
  readln(d);
 
  gd:=detect;
  gm:=0;
  initgraph(gd,gm,'');
  nDeltaX:=100;
  nDeltaY:=30;
 
  if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
  begin
     Ploshad(a,b,c,'ABC',s1);
     Str(s1:10:2, text);
     outtextxy(nDeltaX,nDeltaY-20,'ABC - mozno postroit treugolnik, ploshad= '+text);
  end
  else
     outtextxy(nDeltaX,nDeltaY-20,'ABC - nelzya postroit treugolnik');
  nDeltaY:=nDeltaY+30;
 
  if ((a+c)>d) and ((a+d)>c) and ((d+c)>a) then
  begin
     Ploshad(a,d,c,'ADC',s2);
     Str(s2:10:2, text);
     outtextxy(nDeltaX,nDeltaY-20,'ADC - mozno postroit treugolnik, ploshad= '+text);
  end
  else
     outtextxy(nDeltaX,nDeltaY-20,'ADC - nelzya postroit treugolnik');
  nDeltaY:=nDeltaY+30;
 
  if ((a+b)>d) and ((a+d)>b) and ((b+d)>a) then
  begin
     Ploshad(a,b,d,'ABD',s3);
     Str(s3:10:2, text);
     outtextxy(nDeltaX,nDeltaY-20,'ABD - mozno postroit treugolnik, ploshad= '+text);
  end
  else
     outtextxy(nDeltaX,nDeltaY-20,'ABD - nelzya postroit treugolnik');
  nDeltaY:=nDeltaY+30;
 
  if ((b+c)>d) and ((b+d)>c) and ((d+c)>b) then
  begin
     Ploshad(d,b,c,'BCD',s4);
     Str(s4:10:2, text);
     outtextxy(nDeltaX,nDeltaY-20,'BCD - mozno postroit treugolnik, ploshad= '+text);
  end
  else
     outtextxy(nDeltaX,nDeltaY-20,'BCD - nelzya postroit treugolnik');
  readln;
end.