Можно ли из бревна,имеющего диаметр поперечного сечения D,выпилить квадратный брус шириной A — QBasic(Бейсик)

CLS
INPUT "Vvedite diametr : ", D
INPUT "Vvedite shirinu : ", S
IF SQR(S*S+S*S) <= D THEN PRINT "Da!" ELSE PRINT "Net!"

Теорема пифагора. Квадрат гипотенузы равен сумме квадратов катетов. Гипотенуза в данном случае и должна быть меньше или равна диаметру чтобы вырезать брус

Тестирование выполнено в программе QB64 ( Скачать )