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

Question

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

Answer 1

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

Answer 2

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.