1.Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности. Паскаль

Сначала происходит чтение переменной для содержания элементов последовательности и продолжается до тех пор, пока пользователь не введет число 0, как символ окончания последовательности.
В переменную sum_of_nums записывается с нарастанием сумма всех введенных чисел.
Затем на экран выводится результат.

var
  num, sum_of_nums: integer;

begin
writeln('Вводите числа последовательности. Чтобы закончить, введите число 0');
repeat
read(num);
sum_of_nums:=sum_of_nums+num;
until num=0;

writeln('Сумма всех введенных вами чисел последовательности равна: ', sum_of_nums);    
end.