uses GraphABC;

const

    x1 = 50;
    y1 = 50;
    x2 = 100;
    y2 = 50;

var i1, i2, i3, i4, i : integer;

begin
    i1 := 0;
    i2 := 0;
    i3 := 0;
    i4 := 0;
    while (i <= 1000000) do
    begin
        i4 := i4 + 1;
        //if (i1 > 9) then
        //begin
        //   i2 := i2 + 1;
        //end;

        //if (i2 > 9) then i3 := i3 + 1;
        //if (i3 > 9) then i4 := i4 + 1;

        if (i4 = 10) then i4 := 0;

        if (i4 = 0) then
        begin
            line(50, 50, 50, 100); // 1
            line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            line(50, 150, 100, 150); // 7
        end;

        if (i4 = 1) then
        begin
            line(100, 50, 100, 100); // 3
            line(100, 100, 100, 150); // 6
        end;

        if (i4 = 2) then
        begin
            line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            line(50, 100, 50, 150); // 5
            line(50, 150, 100, 150); // 7
        end;

        if (i4 = 3) then
        begin
            line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            //line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            line(50, 150, 100, 150); // 7
        end;

        if (i4 = 4) then
        begin
            line(50, 50, 50, 100); // 1
            //line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            //line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            //line(50, 150, 100, 150); // 7
        end;

        if (i4 = 5) then
        begin
            line(50, 50, 50, 100); // 1
            line(50, 50, 100, 50); // 2
            //line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            //line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            line(50, 150, 100, 150); // 7
        end;

        if (i4 = 6) then
        begin
            line(50, 50, 50, 100); // 1
            line(50, 50, 100, 50); // 2
            //line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            line(50, 150, 100, 150); // 7
        end;

        if (i4 = 7) then
        begin
            //line(50, 50, 50, 100); // 1
            line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            //line(50, 100, 100, 100); // 4
            //line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            //line(50, 150, 100, 150); // 7
        end;

        if (i4 = 8) then
        begin
            line(50, 50, 50, 100); // 1
            line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            line(50, 150, 100, 150); // 7
        end;

        if (i4 = 9) then
        begin
            line(50, 50, 50, 100); // 1
            line(50, 50, 100, 50); // 2
            line(100, 50, 100, 100); // 3
            line(50, 100, 100, 100); // 4
            //line(50, 100, 50, 150); // 5
            line(100, 100, 100, 150); // 6
            line(50, 150, 100, 150); // 7
        end;

        sleep(100);

        clearwindow;

    end;

    line(50, 50, 50, 100); // 1
    line(50, 50, 100, 50); // 2
    line(100, 50, 100, 100); // 3
    line(50, 100, 100, 100); // 4
    line(50, 100, 50, 150); // 5
    line(100, 100, 100, 150); // 6
    line(50, 150, 100, 150); // 7

end.