Program Example; { This program demonstrates the *** function } Uses sysutils; Begin End.