Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника - Pascal ABC.

var  a, b, c, d: real;procedure Plo(s: string; x, y, z: real);var  sq: real;begin  if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then  begin    sq := 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - z)));    writeln('Площадь треугольника со сторонами ', s, ' = ', sq:0:3);  end else writeln('Треугольник со сторонами ', s, ' не существует');end;begin  write('a=');readln(a);  write('b=');readln(b);  write('c=');readln(c);  write('d=');readln(d);  Plo('a,b,c', a, b, c);  Plo('a,b,d', a, b, d);  Plo('a,c,d', a, c, d);  Plo('b,c,d', b, c, d);end.