//COPYRIGHT @JoeCMain

//COPYRIGHT @JoeCMain
// Task 1
MAXWEIGHT <- 100
MINWEIGHT <- 25
MAXNAME <- 41
MINNAME <- 2
CLASSSIZE <- 2
diff <- 0
diffs <- 0
CHECK <- 2.5
//COPYRIGHT @JoeCMain
diffs[1:30]
NameBank[1:30]
WeightBank[1:30]
Diffs[1:30]
//COPYRIGHT @JoeCMain
FOR Count <- 1 TO CLASSSIZE
  REPEAT
    PRINT "Please enter your name:"
    INPUT Name
  UNTIL LEN(Name) > MINNAME AND LEN(Name) < MAXNAME
  REPEAT
    PRINT "Please enter your weight:"
    INPUT Weight
  UNTIL Weight > MINWEIGHT AND Weight < MAXWEIGHT
  NameBank[Count] <- Name
  WeightBank[Count] <- Weight
NEXT Count
//COPYRIGHT @JoeCMain
//Print all names and weights
FOR Count <- 1 TO CLASSSIZE
  PRINT NameBank[Count]," weighs ", WeightBank[Count]
NEXT Count
//COPYRIGHT @JoeCMain
//COPYRIGHT @JoeCMain
//COPYRIGHT @JoeCMain
//COPYRIGHT @JoeCMain
// Task 2
PRINT "End of term Weights:"
//COPYRIGHT @JoeCMain
FOR count <- 1 TO CLASSSIZE
  REPEAT
    PRINT 'Enter new weight for ', NameBank[count]
    INPUT Weight
  UNTIL Weight >= MINWEIGHT AND Weight <= MAXWEIGHT
  diff <- Weight - WeightBank[count]
  diffs[count] <- diff
NEXT count
//COPYRIGHT @JoeCMain
//task 3
FOR count <- 1 TO CLASSSIZE
  IF diffs[count] > CHECK
    THEN PRINT NameBank[count], "'s ", 'weight has risen by ', diffs[count], 'kg'
  ENDIF
  IF diffs[count] < -1 * CHECK
    THEN PRINT NameBank[count], "'s ", 'weight has fallen by ', -1 * diffs[count], 'kg'
  ENDIF
NEXT count
//COPYRIGHT @JoeCMain