Сделать линейное ! извесны площади двух разных кругов ,радиус и диаметр большого круга взять за стороны прямоугольника. вычислить площадь прямоугольника.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var (s1, s2) := ReadReal2('Введите площади кругов:');

 Println('Площадь прямоугольника равна ', 2 * Max(s1, s2) / Pi)

end.

Введите площади кругов: 46.13 41.52Площадь прямоугольника равна  29.3672700993165