Pascal programs I made.