program flaga;
uses CRT, Graph;
var d, m, i: integer;

begin
        d := DETECT;
        InitGraph(d, m, '');
        SetFillStyle(1, WHITE);
        Bar(200, 200, 600, 460);
        setColor(BLUE);
        for i := 0 to 4 do
        begin
                Circle(300, 300, 50 - i);
        end;
        setColor(BLACK);
        for i := 0 to 4 do
        begin
                Circle(410, 300, 50 - i);
        end;
        setColor(RED);
        for i := 0 to 4 do
        begin
                Circle(520, 300, 50 - i);
        end;
        setColor(YELLOW);
        for i := 0 to 4 do
        begin
                Circle(350, 350, 50 - i);
        end;
        setColor(GREEN);
        for i := 0 to 4 do
        begin
                Circle(460, 350, 50 - i);
        end;
        repeat until KeyPressed;
        CloseGraph;
end.