Дан текстовый файл, содержащий целые числа. Найти количество чисел в файле и их сумму.

var   f: Text;   n, s, e: integer; begin   n := 0;   s := 0;   Assign(f, 'input.txt');   Reset(f);   while not Eof(f) do   begin     readln(f,e);     n := n + 1;     s := s + e   end;   Close(f);   writeln('В файле ', n, ' чисел; их сумма равна ', s) end. Тестовое решение: В файле 10 чисел; их сумма равна 213 Содержимое файла input.txt: 24 37 14 -6 42 58 3 14 0 27