Question

Сделайте пожалуйста в Pascal, очень нужно! Заранее СПАСИБО!!!

Answer 1

uses graphABC;

var x : integer := 50;

begin

   setPenColor(clBlack); // устанавливаем цвет линии

   SetPenWidth(2); // устанавливаем толщину линии

   for var i := 1 to 6 do begin      

       DrawCircle(x, 50, 50); // рисуем большой круг

       DrawCircle(x, 50, 15); // и внутри него маленький

       x := x+100; // сдвигаем центр круга по оси Х вправо но 100

   end;

end.