initial code for pascal exercise add