array of Extended ; i , n : l o n g i n t ; begin WriteLn ( ' Each run should return a value near unity . ' ) ; WriteLn ( ' Single : ' ) ; SetLength ( dataS , Size ) ; for n := 1 to 4 do begin for i :=