Rational Numbers - Delphi | SlaveCode