历届真题 pascal noip

else t：= ④ ； i：=i+1； until flag； end end; begin read (m); if ((m＞0) and (m＜1000)) then writeln ( ⑤ ); end.