В файле input.txt находится произвольное количество чисел, записанных в каждой новой строке. Требуется найти сумму всех чисел и записать ее в файл output.txt

Var
   f:text;
   A,S:real;
Begin
S:=0;
Assign(f,input.txt);
Reset(f);
While not EOF(f) do
   Begin
   Read(f,A);
   S:=S+A;
   End;
Close(f);
Assign(f,output.txt);
Rewrite(f);
Write(f,S);
Close(f);
ReadLn;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.