с клавиатуры вводятся числа до первого отрицатеьного. Нарисуйте блок схему и напишите программу для нахождения суммы этих чисел. Pascal
Домашняя работа по теме (Циклы)
Помогите пожалуйста, дам самый большой балл

var d, sum:integer;begin    while d>-1 do    begin        sum:=sum+d;        readln(d);    end;    writeln(sum);end.