Basic. Определить вид треугольника.

[Елена lip]

Дан треугольник ABC. Определить его вид.
Написала программу,но она не определяет остроугольный,тупоугольный и прямоугольный треугольник. Все время выдает тупоугольный.

CLS
INPUT "Input a: ", a
INPUT "Input b: ", b
INPUT "Input c: ", c

max = a
IF b > max THEN max = b
IF c > max THEN max = c

IF a = max THEN
 min1 = b
 min2 = c
END IF

IF b = max THEN
 min1 = a
 min2 = c
END IF

IF c = max THEN
 min1 = a
 min2 = b
END IF
max = max ^ 2
min1 = min1 ^ 2
min2 = min2 ^ 2

IF a = b AND b = c THEN
 PRINT "TpeyroJIHuk paBHocTopoHHuu'"
ELSE
 IF a = b OR b = c OR a = c THEN
  PRINT "TpeyroJIHuk paBHo6egpeHHuu'"
 ELSE
  IF max = min1 + min2 THEN PRINT "TpeyroJIHuk IIp9ImoyroJIHbIu'"
  IF max > min1 + min2 THEN PRINT "TpeyroJIHuk TyIIoyroJIHbIu'"
  IF max < min1 + min2 THEN PRINT "TpeyroJIHuk OcTPoyroJIHbIu'"
 END IF
END IF

[Serebro]

IF max = min1 + min2 THEN PRINT "TpeyroJIHuk IIp9ImoyroJIHbIu'"
IF max > min1 + min2 THEN PRINT "TpeyroJIHuk TyIIoyroJIHbIu'"
IF max < min1 + min2 THEN PRINT "TpeyroJIHuk OcTPoyroJIHbIu'"

Это неверно. Пример: 6, 4, 4: 6*6 > 4*4 + 4*4 - равнобедренный остроугольный треугольник.


Не хватает проверки условия, что a, b и c составляют треугольник.

[Елена lip]

А можно написать,как это будет выглядеть?