Напишите программу, которая вычисляет сумму и произведение целых чисел, поданных на её вход - Pascal ABC

Формулировка задачи:

Напишите программу, которая вычисляет сумму и произведение целых чисел, поданных на её вход. Ввод заканчивается числом 0. Входные данные Во входных строках записаны целые числа, по одному в каждой строке. В последней строке записано число 0. Выходные данные Программа должна вывести в одной строке сумму и произведение введённых чисел (не считая завершающий 0), разделив их пробелом. Примеры входные данные 1 2 3 0 выходные данные 6 6

Решение задачи: «Напишите программу, которая вычисляет сумму и произведение целых чисел, поданных на её вход»

Листинг программы

var x, a, sum, pro: integer;
begin
  sum := 0;
  pro := 1;
  while true do begin
    read(x);
    if x = 0 then break;
    sum := sum + x;
    pro := pro * x;
  end;
  writeln(sum, ' ', pro);
end.

Объяснение кода листинга программы

Объявлены четыре переменные: x, a, sum, pro типа integer (целое число).
Инициализированы начальными значениями: sum = 0, pro = 1.
Запускается бесконечный цикл while true, который будет выполняться до тех пор, пока не встретит команду break.
В каждой итерации цикла происходит считывание значения переменной x с помощью функции read(x).
Если значение x равно 0, то цикл прерывается командой break.
К каждой итерации цикла прибавляется значение x к переменной sum и умножается на значение x переменная pro.
По завершению цикла выводится на экран значение переменной sum и переменной pro с помощью функции writeln(sum, ' ', pro).
Код завершается.