定義變量
n，k，p，I，j:整數；
開始
readln(n)；
k:= n div 2；//初始空格數
p:= 1；//初始打印字數
對於i:=1 to (n div 2) do //首先打印該行的前半部分。
開始
對於j:=1到k做寫(')；//輸出空格
對於j:=1到p做寫(' * ')；//輸出星號
writeln//輸出回車
dec(k)；inc(第2頁)；//相當於k:= k-1；p:= p+2；
//因為每增加壹行就減少壹個空格，增加兩個星號。
結束；
對於i:=1到n做寫(' * ')；//輸出中間的星號。
writeln//輸出回車
//因為打印是對稱的，所以不需要初始化k，p。
對於i:=1 to (n div 2) do //打印該行的後半部分。
開始
對於j:=1到k做寫(')；//輸出空格
對於j:=1到p做寫(' * ')；//輸出星號
writeln//輸出回車
Inc(k)；dec(第2頁)；//相當於k:= k+1；p:= p-2；
//因為每增加壹行，就少壹個空格，少兩個星號。
結束；
結束。