function sum(id, pr, a, n):
     arr := array(1000)