Turbo Pascal Program for Reading the Format


Assign ( inFile, 'EXAMPLE.IN' ) ;

reset ( inFile ) ;

readln ( inFile, N ) ;

for i := 1 to N do read ( inFile, P[i] ) ;

readln ( inFile ) ;

Close ( inFile )


[ overview | prev | next ]