На вход подается набор целых чисел, содержащий одно или более ненулевых чисел и завершающийся числом 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.