begin;integerI;realprocedureSUM(I,LO,HI,TERM);valueLO,HI;integerI,LO,HI;realTERM;comment TERM IS PASSED BY-NAME;begin;realTEMP;TEMP:=0;forI:=LOstep1untilHIdoTEMP:=TEMP+TERM;SUM:=TEMP;end;PRINT(SUM(I,1,100,1/I),6,3)endcomment JENSEN'S DEVICE,  L. ALLISON, COMPUTER SCIENCE, MONASH UNIVERSITY.;;