Известны площади круга и квадрата. определить, уместится ли круг в квадрате. составить блок-схема

// PascalABC.NET
begin
   var S1 := ReadlnReal('площадь квадрата S1 =');
   var S2 := ReadlnReal('площадь круга S2 =');
   Print(S1 <= 2 * S2 / Pi) // True - умещается, False - не умещается
end.