Составьте программу которая рисует 10 окружностей разного цвета разных радиусов с одним центром?

uses GraphABC;beginSetBrushColor(clMagenta);Circle(150, 150, 150);SetBrushColor(clCyan);Circle(150, 150, 140);SetBrushColor(clLightCyan);Circle(150, 150, 130);SetBrushColor(clRed);Circle(150, 150, 120);SetBrushColor(clYellow);Circle(150, 150, 110);SetBrushColor(clGray);Circle(150, 150, 100);SetBrushColor(clBlack);Circle(150, 150, 90);SetBrushColor(clGreen);Circle(150, 150, 80);SetBrushColor(clLightBlue);Circle(150, 150, 70);SetBrushColor(clWhite);Circle(150, 150, 60);end.