определить треугольник

[cherry097]

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

язык free pascal

[Z1000000]

http://pco.iis.nsk.su/ICP/Introduction/dd3/node13.html

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.

[cherry097]

огромнейшее спасибо!!!!!!!