Added pascal code from part 2