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

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.