1.pas

uses GraphABC;
uses System.Drawing;

var
        w: integer := 640;
        h: integer := 480;
        c: integer := 0;
begin
        SetWindowSize(w, h);

        while true do begin                                                                                                                                               
                c := (c + 1) mod 6;                                                                                                                                       

                SetPenColor(Color.Black);
                SetBrushColor(Color.Yellow);                                                                                                                              
                SetPenWidth(4);

                FillCircle(w div 2, h div 2, w div 3);
                DrawCircle(w div 2, h div 2, w div 3);

                SetPenWidth(10);
                Arc(w div 2, h div 2, w div 4, 220, 320);                                                                                                                 

                SetBrushColor(Color.Black);

                if c = 2 then                                                                                                                                             
                        Line(w div 2 - w div 8 - w div 20, h div 3, w div 2 - w div 8 + w div 20, h div 3)
                else
                        FillCircle(w div 2 - w div 8, h div 3, w div 20);                                                                                                 

                if c = 5 then
                        Line(w div 2 + w div 8 - w div 20, h div 3, w div 2 + w div 8 + w div 20, h div 3)                                                                
                else
                        FillCircle(w div 2 + w div 8, h div 3, w div 20);                                                                                                 

                Redraw;
                Sleep(500);
        end;
end.