新人想請教各位大俠，，

var
M,N:integer;
C:char;
begin
C:='*'; // 將‘*’附於C
for M:=0 to 12 do //M的運算範圍是0~12
begin
write(C:40-3*m);
for N:=1 to 2*M do
write(C:3);
writeln;
end;
writeln('金字塔打印完畢，按“囬車”鍵退出。。。');
readln;請問紅色部分怎樣解釋？！謝謝

===================引 用 winkey2008 文 章===================
新人想請教各位大俠，，

var
M,N:integer;
C:char;
begin
C:='*'; // 將‘*’附於C
for M:=0 to 12 do //M的運算範圍是0~12
begin
write(C:40-3*m); // 顯示前置空白的*符號長度為40-3*m,
for N:=1 to 2*M do // 以下其他的不難說明吧, 有空自己也要試著看Help, 自助而後人助
write(C:3);
writeln;
end;
writeln('金字塔打印完畢，按“囬車”鍵退出。。。');
readln;請問紅色部分怎樣解釋？！謝謝

ths so much~~~