Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел(Нужно написать программу в Паскале

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal:

program sum_and_product;
var
number, sum, product: integer;
begin
sum := 0;
product := 1;
repeat
write('Enter a number (ending with 0 to stop): ');
readln(number);
if number mod 10 = 0 then
begin
sum := sum + number;
product := product * number;
end;
until number = 0;
writeln('Sum of the numbers ending with 0: ', sum);
writeln('Product of the numbers ending with 0: ', product);
end.

Эта программа запрашивает у пользователя числа до тех пор, пока он не введет число, оканчивающееся на 0. Затем программа считает сумму и произведение всех введенных чисел, оканчивающихся на 0, и выводит результаты.