РЕШИТЬ С Подмогою ПАСКАЛЯ +ОБЪЯСНИТЬ ПОЧЕМУ ТАК!!ДАЮ МНОГО БАЛЛОВ Вычислить сумму

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.