The problem is number 1001(Pascal).
Can I use the procedure 'read' to read all numbers? The size of input file does not exceed 256 KB. Consequently, amount of numbers does not exceed 256*1024/2=131072. Can I use 'array' of real and functions 'trunc'&'frac' to get integer part and first 4 digits of fractional part?