Delphi Algorithm Math 447 codes