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<min then min:=s;

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

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

if s<min then min:=s;

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

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

if s<min then min:=s;

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

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

if s<min then min:=s;

writeln(min);

end.