3:begin t:＝t-1;s[t]:＝s[t]-s[t+1]end;