program YellowCircles;

uses
Graph;

var
driver, mode, i: integer;

begin
driver := VGA;
mode := VGAHi;
InitGraph(driver, mode, '');

SetbkColor(Red);

for i := 1 to 15 do
begin
SetColor(Yellow);
Circle(GetMaxX div 2, GetMaxY div 2, i * 10);
end;

SetColor(White);
OutTextXY(GetMaxX div 2 - 100, 50, 'Любая надпись');

Readln;
CloseGraph;
end.