Perfect Numbers - Delphi | SlaveCode