我的程序:
var i，t1，t2，t3，ans:longint；
開始
I:= 1；t 1:= 0；T2:= 0；ans:= 0；{t1，t2，t3分別代表三天循環中第1天，第二天，第三天的溫度，t3也作為變量臨時讀取存儲。Ans是最終答案(不好意思，定義有點怪。。。)}
讀(T3)；
而t3 & lt& gt0開始吧
如果t1=0那麽？t1:=t3否則T2:= T3；
讀(T3)；
如果t2 & gt0然後開始？
如果t2 & lt35然後開始T2:= 0；t 1:= 0；結束；
如果t 1 & lt；35那麽t 1:= 0；
如果(t3 & gt=35)和(t 1 & gt；=35)和(t2 & gt=35)然後開始
公司(ans)；t 1:= 0；T2:= 0；讀(T3)；結束；
結束；
結束；
寫(ans)；
結束。
答而不編，如有低級語法錯誤請見諒。
還可以花壹個財富值買壹個帕斯卡錯誤碼表？。網上找不到。。。:)