Find the Largest Number

// PSC:1.0 FindMaximum
// Description: Reads n numbers and reports the largest one

BEGIN FindMaximum
  INPUT "How many numbers? " n
  INPUT "First number: " largest
  FOR i FROM 2 TO n
    INPUT "Next number: " value
    IF value > largest
      LET largest = value
    END IF
  END FOR
  OUTPUT "The largest number is " largest
END