1) Даны круг и квадрат. Составьте программу, определяющую по введенным вами значениями длин стороны квадрата и радиус круга, одно из утверждений " Квадрат вписан в круг "

Квадрат вписан в круг при условии что R*2(диаметр)>Диагонали квадрата 

На QBasic

? "Введите 2 числа - радиус круга и сторону квадрата соответсвенно"

INPUT A;B

C=A*2  Диаметр

G=SQR(A*A+A*A) Диагональ  

IF C>G THEN 1 ELSE 2

1 ? "Квадрат вписан в круг"

GOTO 3

2 ? "Квадрат не вписан в круг"

3 END