定義變量
I:整數；
開始
對於i:=100到200 do
如果我mod 2 & lt& gt0然後寫(I，' ')；如果可除2不等於0，表示基數，然後打印。
結束。
求能被5整除的四位數之和。
定義變量
I，h:longint；
開始
對於i:=1005到9995 do
開始
如果i mod 5=0那麽inc(h，I)；Inc(h，I)是h: = h+I。
結束；
寫(h)；
結束。
自戀數字
定義變量
a、b、c、d:整數；
開始
對於d:=100到999是判斷這個數是否滿足條件嗎？
開始
a:= d div 100；a是d的百分之壹。
b:= d div 10 mod 10；b是d的小數。
c:= d-a * 100-b * 10；c是d的個位數。
若a*a*a+b*b*b+c*c*c=d則寫(d:6)；如果d滿足條件，則打印d。
最後，三朵水仙花都會被打印出來。
結束；
結束。
希望能滿足妳的願望。