Составьте блок-схему и программу для решения , в которой требуется вводить с клавиатуры числа и подсчитывать их сумму , до первого введенного отрицательного числа

Код Pascal:

Var
   S,A:real;
Begin
S:=0;
WriteLn('Введите числа: ');
Read(A);
While A>=0 do
   Begin
   S:=S+A;
   Read(A)
   End;
WriteLn('S = ',S);
End.

Блок-схема: