Заданы площади круга и квадрата. определите, поместится ли квалрат в круге - QBasic

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

Заданы площади круга и квадрата. определите, поместится ли квалрат в круге

Решение задачи: «Заданы площади круга и квадрата. определите, поместится ли квалрат в круге»

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

CLS
pi = 3.14159265
INPUT "vvedite s kruga"; s1
INPUT "vvedite s kvadrata"; s2
d = 2 * SQR(s1 / pi)
IF SQR(s2) * SQR(2) <= d THEN PRINT "da" ELSE PRINT "net"

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

В начале программы выполняется команда CLS, которая очищает экран.
Затем в переменную pi записывается значение числа π, равное 3,14159265.
Далее пользователю предлагается ввести площадь круга с помощью команды INPUT vvedite s kruga. Значение этой переменной сохраняется в переменной s1.
После этого пользователю предлагается ввести площадь квадрата с помощью команды INPUT vvedite s kvadrata. Значение этой переменной сохраняется в переменной s2.
Затем вычисляется диаметр круга, который равен двум умноженным на значение переменной s1, поделённое на число π, и результат сохраняется в переменной d.
Если квадрат площади квадрата, умноженный на 2, меньше или равен диаметру круга, то с помощью команды PRINT выводится слово da, иначе выводится слово net.