Введите три числа.Если они могут быть длинами сторон остроугольного
треугольника,выведите их в порядке убывания и вычислите их площадь.

a, b, c, i,z, j, p:integer;d:array[1..10] of integerbeginreadln(a, b, c);d[1]:=a; d[2]:=b; d[3]:=c;for i:=1 to 3 dofor j:=1 to 3 doif d[i]<d[j] then beginz:=d[i]; d[i]:=d[j]; d[j]:=z;if ((a+b)>c) and ((a+c)>b) and ((c+b)>a) then beginp:=(a+b+c) div 2;p:=p*(p-a)*(p-b)*(p-c);p:=sqrt(p);p:=(2*p) div a;for i:=1 to n dowriteln(d[i]);end;writeln(p);readln;end.