completed pascal in assignment 1