Подсчитать сумму вводимых чисел до первого отрицательного числа (использовать цикл с постусловием).

 program summa;  var a:= 0;  var b:= 0;  begin   writeln('Введите число');    readln(a);    if a>0 then       repeat {повторяй}       a:= a+b;    writeln('Введите еще число');    readln(b);      until (b<0); {до тех пор, пока условие не будет истинным}      writeln('Было обнаружено отрицательное число');         if a>0 then       writeln('Полученная сумма: ',a)      else writeln('Отрицательное число было первым');      readln;  end. Программа на выходе сообщает: Введите число 3 Введите еще число 45 Введите еще число 9 Введите еще число -8 Было обнаружено отрицательное число Полученная сумма: 57