Помогите пожалуйста. PASCALABC.NET Даю 50 БАЛЛОВ Ввести длины отрезков a,b,c,d. Для...

Question

Помогите пожалуйста. PASCALABC.NET Даю 50 БАЛЛОВ Ввести длины отрезков a,b,c,d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить площадь. Напечатать площадь наименьшего треугольника. Площадь треугольника вычислять с помощью процедуры по формуле Герона.

Answer 1

program abc;

var a,b,c,d:integer;

p,s,min:real;

begin

readln(a,b,c,d);

min:=a*b*c*d;

p:=(a+d+c)/2;

s:=sqrt((p-a)*(p-d)*(p-c)*p);

if s

p:=(a+b+c)/2;

s:=sqrt((p-a)*(p-b)*(p-c)*p);

if s

p:=(b+c+d)/2;

s:=sqrt((p-b)*(p-c)*(p-d)*p);

if s

p:=(b+a+d)/2;

s:=sqrt((p-a)*(p-b)*(p-d)*p);

if s

writeln(min);

end.