Изи проблем.
У яромира есть круг радиусом R. он хочет вписать в квадрат с максимально возможной площадью в него. к сожалению, он плох в математике (и геометрии), именно поэтому попросил помощи у вас. поможете?
нужно написать программу на любом языке программирования.

Вообще-то, в окружность можно вписать квадрат только одного размера. Каждая его диагональ будет равна диаметру окружности, то есть 2R. Площадь квадрата , где d - диагональ квадрата. d = 2R, значит

Программа на PascalABC может иметь вид:

Program KWADRAT;

var

 r: real;

begin

 var s:='**** -=Alphaeus=- ****'; var k:=0;

 for k:=1 to 22 do begin write(s[k]); sleep(47) end;

 writeln; write('Введите R = '); readln(r);

 writeln('Площадь вписанного квадрата равна ',2*r*r);

end.