! F90的固定格式 －－－－－統(tǒng)計(jì)學(xué)生考試合格人數(shù) 
      INTEGER :: n, s, k
      s = 0; k = 0
    1 PRINT*,'鍵入分?jǐn)?shù) （負(fù)數(shù)時(shí)退出）：'
      READ*, n;   IF(n < 0) GOTO 999
      s = s + 1
      IF(n >= 60) k = k + 1
      GOTO 1
  999 PRINT*, k,' 個(gè)學(xué)生合格。 總?cè)藬?shù)＝', s
      END