===PascalABC.NET===

program brainly;

var

 s, a :integer;

begin

 s := 0;

 a := 1;

 while a <> 0 do

 begin

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

   ReadLn(a);

   s := s + a

 end;

 Write('Сумма: ', s);

end.

Прикрепил файл с программой во вложении.