Решить с паскаля +объяснить почему много ⦁ вычислить сумму последовательности , где n вводится пользователем, и вывести ее на экран. ⦁ вывести на экран количество вводимых пользователем чисел. вычисления остановить, когда пользователь введет 0. ⦁ вычислить сумму семи произвольных чисел.

var

 ch: array[1..100] of real;

 i, n: integer;

 s: real;

begin

 repeat

   inc(i);//+1  

   write($'Введите {i} число: ');

   readln(ch[i]);//записываем в массив число  

 until ch[i] = 0;//проверяется условие,если число равно 0 то прекращаем ввод

 write($'Введите,сколько чисел сложить:');

 readln(n);

 writeln;

 writeln($'Вы ввели {i} чисел');

 for i := 1 to n do

 begin

   s := ch[i] + s;//складываем числа n штук

 end;

 writeln($'Сумма чисел = {s}');

end.