找100内的素数,delphi找出100内的素数