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

fun: p = 0
s = 0
 p = (d + f + g) / 2
 s = SQR(p * (p - d) * (p - f) * (p - g))
RETURN
REM labs9
CLS
PRINT "Vvesti 10-12 troek chisel ABC"
INPUT "Vvesti kol-vo vvodimux tochek ", n
DIM a(n)
PRINT "Vvodite tochki: "
FOR i = 1 TO n
 PRINT "a("; i; ")": INPUT "", a(i)
NEXT
FOR i = 1 TO 3 * n
 a = a(i): b = a(i + 1): c = a(i + 2)
 IF a + b > c THEN
  d = a: f = b: g = c
  GOSUB fun
  v1 = s
   ELSE
    IF a + c > b THEN
     d = a: f = b: g = c
     GOSUB fun
     v2 = s
      ELSE
       IF b + c > a THEN
        d = a: f = b: g = c
        GOSUB fun
        v3 = s
         ELSE
          PRINT "Chisla A="; a; "B="; b; "C="; c; " ne mogut but zhacheniyami storon"
       END IF
    END IF
  END IF
PRINT "Esli a+b>c to S="; v1
PRINT "Esli a+c>b to S="; v2
PRINT "Esli b+c>a to S="; v3
NEXT
END

PRINT "Vvesti 10-12 troek chisel ABC"
INPUT "Vvesti kol-vo troek vvodimux tochek: ", n
DIM a(n, 3)
PRINT "Vvodite tochki: "
FOR i = 1 TO n
    FOR j = 1 TO 3
        PRINT "a("; i; ","; j; ")";
        INPUT ": ", a(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    d = a(i, 1)
    f = a(i, 2)
    g = a(i, 3)
    Uslovie = 0
    IF d + f > g AND d + g > f AND f + g > d THEN Uslovie = 1
    IF Uslovie = 1 THEN
        GOSUB fun
        PRINT "Esli a+b>c AND  a+c>b  AND  b+c>a to S="; s
    ELSE
        PRINT "Chisla A="; d; "B="; f; "C="; g; " ne mogut but zhacheniyami storon"
    END IF
NEXT
END
fun:
p = (d + f + g) / 2
s = SQR(p * (p - d) * (p - f) * (p - g))
RETURN