Используя файловый ввод вывод найдите сумму отрицательных элементов из 15 чисел.
Помогите с информатикой!Даю 99 баллов!

Спасибо!Ты меня просто спас!

var i,k,s: integer;    f: text;begin  assign(f,'input.txt');  reset(f);  s:=0;  for i:=1 to 15 do  begin    read(f,k);    write(k,' ');    if k<0 then s:=s+k;  end;  close(f);  writeln;  writeln('сумма отрицательных: ',s);end.-11 57 28 -16 37 92 13 -6 14 39 -19 -59 61 78 27 сумма отрицательных: -111Файл input.txt во вложении.