var num,s :real;

begin

 s:= 0;

 while true do

 begin

   write('Введите число: ');

   readln(num);

   if num >= 0 then s:= s + num

               else break;

 end;

 writeln('Сумма =  ', s)

end.