С клавиатуры пользователь вводит числа до тех пор, пока не будет введен 0. вычислите сумму введенных чисел

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

read (x); / / вводим первое число последовательности

y:=y + x; / / добавляем его в сумму

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

read (x); / / вводим очередное число последовательности

y:=y + x; / / добавляем его в сумму

end;

write (' Сумма чисел последовательности = ', y); / / выводим ответ

end.