profile="http://gmpg.org/xfn/11"> Найти сумму вводимых чисел до первого отрицательного числа, Pascal. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

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

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

program Sum_Nul;

  {задачи на числа паскаль с решением}
  {Найти сумму вводимых чисел до первого отрицательного числа,Pascal}
var
  i_Num, i_Sum: integer;

begin
WriteLn('Введите числа, после ввода отрицательного числа, полученная сумма будет выведена на экран.');
  i_Sum := 0;
  repeat
    i_Sum := i_Sum + i_Num;
    Readln(i_Num);
  until i_Num < 0;
  WriteLn('Сумма вводимых чисел до первого отрицательного числа = ', i_Sum);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти сумму вводимых чисел до первого отрицательного числа,Pascal
Найти сумму вводимых чисел до первого отрицательного числа, Pascal.

Комментарии запрещены.