1999 CEMC Pascal Problems/Problem 1