Нарисовать уходящую внутрь структуру

[bbs-serega]

Нарисовать уходящую внутрь структуру. Когда квадрат вписан в круг, то сторона квадрата равна диаметру круга. Когда в круг вписан квадрат, то диагональ квадрата равна диаметру круга. Сторона квадрата относится к его диагонали как 1/корень2. Значение радиуса окружности будет уменьшаться в корень2 раз: r:=r/sgrt (2).

[Whited]

в раздел Фриланс шуруй...

[Nelson]

Смотри лучше раздаточный лист тебе нужна задача два б), а не восьмая.

[Nelson]

Program u8z8;
uses crt,graphabc;

var x,y,r,d,a : integer;
BEGIN
x:=250;
y:=250;
Write('Введите диаметр круга : ');
Readln(d);
while d>=0 do
 begin
  Circle(x,y,trunc(d/2));
  a:=trunc((d/sqrt(2))/2);
  Rectangle(x-a,y-a,x+a,y+a);
  d:=a*2;
 end;
END.

[bbs-serega]

Спасибо