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

//Pascal ABC.NET 3.1 сборка 1219 uses  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 сборка 1256 Uses  GraphABC; Var  r:integer; begin readln(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.