问我的程序那里错了？

根据数学知识可证当正方形的一边在三角形最短边上时面积最大！且边长=2s/(c+h)，样例也过了……为嘛？才10分？

var

v:boolean;

a,b,c,p,s,h,ss,sl,t:extended;

begin

v:=true;

while v do

begin

readln(a,b,c);

if aa) and (a+c>b) then

begin

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

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

h:=(2*s/c);

ss:=sqr((2*s)/(c+h));

sl:=s-ss;

writeln(sl:0:3);

end

else writeln(-1);

end;

end.