Small code sample in Delphi to demonstrate how to compute egyptian fractions