2001 CEMC Pascal Problems/Problem 1