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

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