送你一颗小星星

uses crt;
Begin
        clrscr;
        writeln('                *********           *********');
        writeln('            *****************   *****************');
        writeln('           ****************************************');
        writeln('         *******************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('         *******************************************');
        writeln('          *****************************************');
        writeln('           ***************************************');
        writeln('            *************************************');
        writeln('              *********************************');
        writeln('                *****************************');
        writeln('                  *************************');
        writeln('                      *****************');
        writeln('                        *************');
        writeln('                          *********');
        writeln('                            *****');
        writeln('                              *');
end.

uses crt;
Var i:longint;
Begin
        clrscr;
        i:=1;
        while 1=1 do
        Begin
        gotoxy(1,1);
        textcolor(i);
        writeln('                *********           *********');
        writeln('            *****************   *****************');
        writeln('           ****************************************');
        writeln('         *******************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('        *********************************************');
        writeln('         *******************************************');
        writeln('          *****************************************');
        writeln('           ***************************************');
        writeln('            *************************************');
        writeln('              *********************************');
        writeln('                ******************************');
        writeln('                  **************************');
        writeln('                      ******************');
        writeln('                        *************');
        writeln('                          *********');
        writeln('                            *****');
        writeln('                              *');
        i:=(i) mod 12+1;
        delay(1000);
        end;
end.

参考：https://80358.blog.luogu.org/ru-he-yong-c-lai-xiang-ta-biao-bai