На вход подается набор целых чисел, содержащий одно или более ненулевых чисел и завершающийся числом 0; каждое число располагается на новой строке. Вывести сумму всех чисел из исходного набора.
uses PT4Exam;
var
a, sum: integer;
begin
Task('ExamBegin16');
sum := 0;
ReadLn(a);
while a <> 0 do
begin
sum := sum + a;
Readln(a);
end;
WriteLn(sum);
end.
