Вообще-то, в окружность можно вписать квадрат только одного размера. Каждая его диагональ будет равна диаметру окружности, то есть 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.