Известны площади круга и квадрата определить уместиться квадрат в круге Pascal прошу помогите

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата  S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. [latex]\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2} [/latex] Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим. // PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin   var s1:=ReadReal('Площадь квадрата');   var s2:=ReadReal('Площадь круга');   if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')   else Writeln('Квадрат не умещается в круге') end. Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге