program TriangleType;
var
A, B, C, H, K, L, T1, T2: integer;
begin
Write('A= ');
ReadLn(A);
Write('B= ');
ReadLn(B);
Write('C= ');
ReadLn(C);
writeln('Triangle is ');
if (A + B > C) and (A + C > B) and (B + C > A) then
begin
if A < B then
begin
K := A;
L := B;
end
else
begin
K := B;
L := A;
end;
if L < C then
H := C
else
begin
H := L;
L := C
end;
T1 := Sqr(H);
T2 := Sqr(K) + Sqr(L);
if T1 = T2 then
write('rectangular') (* прямоугольный *)
else if T1 < T2 then
write('acute') (* остроугольный *)
else
write('obtuse'); (* тупоугольный *)
end
else
writeln('impossible'); (* невозможен *)
writeln;
end. |
