.....................................
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s1, s2) := ReadReal2('Введите площади кругов:');
Println('Площадь прямоугольника равна ', 2 * Max(s1, s2) / Pi)
end.
<h3>Введите площади кругов: 46.13 41.52</h3><h3>Площадь прямоугольника равна 29.3672700993165 </h3>
Ключ: интернет
<span>Трудно в учении, легко в бою</span>
Ответ:
var x, y: Integer;
begin
Read(x, y);
if x > y then WriteLn(x+y);
end.
1 мегабайт = 1024 килобайта
1 килобайт = 1024 байт
512*1024*1024=536870912 однобайтовых ячеек