From the keyboard, the user enters numbers until 0 is entered, calculate the sum of the numbers entered.

program zz1;
var x, y: integer; // set variables of integer type
begin
read (x); // enter the first number of the sequence
y: = y + x; // add it to the amount
while x <> 0 do // organize a loop in which we will enter the numbers of the sequence until we enter zero
begin
read (x); // enter the next number of the sequence
y: = y + x; // add it to the amount
end;
write (‘Sum of sequence numbers =’, y); // display the answer
end.