Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. как только будет введено отрицательное число, суммирование прекратить.

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x>=0).Sum());
end.

Var
  A,S: real;
Begin
  S := 0;
  Write('Введите последовательность чисел: ');
  Read(A);
  While A >= 0 do
  Begin
    S := S + A;
    Read(A);
  End;
  WriteLn('S = ',S);
End.