File1tests

// PSC:1.0 File1

BEGIN Average
    LET total = 0
      LET count = 0
  INPUT "Enter a number (0 to stop): " value
  WHILE value != 0
    LET total = total + value
    LET count = count + 1
    INPUT "Enter a number (0 to stop): " value
  END WHILE
  IF count = 0
    OUTPUT "No numbers were entered"
  ELSE
    OUTPUT "Average: " total / count
  END IF

END