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

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