Помогите решить плз !!!! В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел. Заранее спасибо !!! Написать нужно на Паскаль АВС

Вопрос школьника по предмету Информатика

Помогите решить плз !!!!
В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число. Написать функцию без параметров для нахождения суммы этих положительных чисел.
Заранее спасибо !!! 
Написать нужно на Паскаль АВС

Ответ учителя по предмету Информатика

procedure sumd;

var s,n: integer;

begin

  s:=0; n:=0;

  repeat

    s:=s+n;

    read(n);

  until n<0;

  writeln(‘сумма: ‘,s);

end;

// сновная программа

begin  

  assign(input,’input.txt’);

  sumd;

end.

файл input.txt:    11 15 21 13 -5

сумма: 60