Question

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

Answer 1

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