упростить программу

[cherry097]

программа находящая вид треугольника по трем заданным сторонам

var A,B,C,H,K,L,T1,T2 : integer;
begin
        read(A,B,C);
        if (A + B > C) and (A + C > B) and (B + C > A) then
        begin
            write('Можно построить ');
            if A < B then H := B else H := A;
            if H < C then H := C;
            if A = H then begin K := B; L := C; end;
            if B = H then begin K := A; L := C; end;
            if C = H then begin K := A; L := B; end;
            T1 := Sqr(H); T2 := Sqr(K) + Sqr(L);
            if T1 = T2 then write (' прямоугольный ')
            else if T1< T2 then write (' остроугольный ')
            else write (' тупоугольный ');
            writeln('треугольник.');
         end
        else writeln('Треугольник построить нельзя.');
end.

ее надо упростить. препод сказал что можно убрать два if и использовать вложенный if
я в программировании не секу. помогите плиз

[Stilet]

Ох и препод... Не вижу смысла упрощать.
Скажи ему что я разрешил, пусть ставить зачет. )

[SmallUser]

Можно попробовать использовать формулу полупериметра: p=((a+b+c)/2);
Затем проверить условие существования: if((p-a)>0 and (p-b)>0 and (p-c)>0) то существует. Потом по формуле S=sqrt(p*(p-a)*(p-b)*(p-c)) и z=arcsin(2*s/(a+b)) найти значение угла.

[Z1000000]

var A,B,C,H,K,L,T1,T2 : integer;
begin
        read(A,B,C);
        if (A + B > C) and (A + C > B) and (B + C > A) then
        begin
            write('Можно построить ');
            if A > B then
             if A > C then begin H := A;K := B; L := C; end
             else begin H := C; K:=A; L :=B; end
            else
             if C < B then begin H := B; K := A; L := C; end
             else begin H := C; K:=A; L :=B; end;
            T1 := Sqr(H); T2 := Sqr(K) + Sqr(L);
            if T1 = T2 then write (' прямоугольный ')
            else if T1< T2 then write (' остроугольный ')
            else write (' тупоугольный ');
            writeln('треугольник.');
         end
        else writeln('Треугольник построить нельзя.');
end.

[cherry097]

спасибо!
а препод у меня жесть. десять раз прицепится к идеальной проге