pascal subでよろしいですか?