Существует ли остроугольный треугольник - QBasic

Формулировка задачи:

Треугольник задан своими сторонами A, B, C

CLS
 
INPUT "A = "; A
INPUT "B = "; B
INPUT "C = "; C
 
IF A + B > C AND B + C > A AND C + A > B AND A^2 + B^2 > C^2 AND B^2 + C^2 > A^2 AND C^2 + A^2 > B^2 THEN PRINT "YES" ELSE PRINT "NO"
 
END

Решение задачи: «Существует ли остроугольный треугольник»

Листинг программы

CLS
 
INPUT "A = "; A : aa=a*a
INPUT "B = "; B : bb=b*b
INPUT "C = "; C : cc=c*c
 
IF aa + bb > cc AND bb + cc > aa AND cc + aa > bb THEN PRINT "YES" ELSE PRINT "NO"
 
END

Объяснение кода листинга программы

Вот что происходит в этом коде:

CLS — очистка экрана.
INPUT A =; A — ввод значения для переменной A.
INPUT B =; B — ввод значения для переменной B.
INPUT C =; C — ввод значения для переменной C.
aa=a*a — присваивание значения переменной A в переменную aa.
bb=b*b — присваивание значения переменной B в переменную bb.
cc=c*c — присваивание значения переменной C в переменную cc.
IF aa + bb > cc AND bb + cc > aa AND cc + aa > bb THEN PRINT YES ELSE PRINT NO — проверка условий и вывод соответствующего сообщения.