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

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