Rational Numbers - Free Pascal | SlaveCode