PascalABC.Помогите,пожалуйста,решить задачу!Нарисуйте окружность такой линией, ширина которой больше радиуса. Обведите полученную фигуру по контуру окружностью с линией шириной 1.

Спасибо большое!!!

Нет, не так.

что не так? телепаты в отпуске

Я о своём прошлом решении. Сейчас уже поправил.

//Pascal ABC.NET 3.1 сборка 1219uses GraphABC;const    radius = 100;    line_width = 101;begin    Window.Init(0, 0, 350, 350, clNavy);    Window.CenterOnScreen();    Brush.Color := clBlue;    Pen.Color := clBlack;    Pen.Width := line_width;    Circle(WindowCenter.X, WindowCenter.Y, radius);    Pen.Width := 2;    Pen.Color := clAquamarine;    DrawCircle(WindowCenter.X, WindowCenter.Y, radius + line_width div 2);end.

//Pascal ABC.NET 3.1 сборка 1256Uses GraphABC;Var r:integer;beginreadln(r);brush.Style:=bsClear;pen.Width:=r+10;circle(window.Center.X,window.Center.Y,r);pen.Width:=1;pen.Color:=clPurple;circle(window.Center.X,window.Center.Y,r+(r+10) div 2);end.