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

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