A, b, c, i,z, j, p:integer; d:array[1..10] of integer begin readln(a, b, c); d[1]:=a; d[2]:=b; d[3]:=c; for i:=1 to 3 do for j:=1 to 3 do if d[i]<d[j] then begin z:=d[i]; d[i]:=d[j]; d[j]:=z; if ((a+b)>c) and ((a+c)>b) and ((c+b)>a) then begin p:=(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 do writeln(d[i]); end; writeln(p); readln; end.
d:array[1..10] of integer
begin
readln(a, b, c);
d[1]:=a; d[2]:=b; d[3]:=c;
for i:=1 to 3 do
for j:=1 to 3 do
if d[i]<d[j] then begin
z:=d[i]; d[i]:=d[j]; d[j]:=z;
if ((a+b)>c) and ((a+c)>b) and ((c+b)>a) then begin
p:=(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 do
writeln(d[i]);
end;
writeln(p);
readln;
end.