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.