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

 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