Assign ( inFile, 'EXAMPLE.IN' ) ;
reset ( inFile ) ;
readln ( inFile, N ) ;
for i := 1 to N do read ( inFile, P[i] ) ;
readln ( inFile ) ;
Close ( inFile )