RobIn Format Definition Example

OpenRIF ( inFile, 'EXAMPLE.IN', ... ) ;

N := ReadIntegerRIF ( inFile, Separated, 'N', 1, 20 ) ;

ReadlnRIF ( inFile ) ;

for i := 1 to N do
  P[i] := ReadIntegerRIF ( inFile, Separated, 'P', 1, 100 ) ;

ReadlnRIF ( inFile ) ;

CloseRIF ( inFile )