Разобраться в . наглядно покажите ответ.

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin   var l: =new list< integer> ;   writeln('вводите целые числа, окончание ввода по -777');   var n: integer;   repeat       n: =readinteger;       if n< > -777 then l.add(n);   until n=-777;   writeln('исходный список'); writeln(l);   n: =readinteger('введите искомое число: ');   var p: =l.findindex(k-> k=n); // искомый элемент   if p< 0 then writeln('искомый элемент в списке не найден')   else begin       writeln('элемент ',l.item[p-2],' удален');       l.removeat(p-2); writeln(l); // удалили и убедились       n: =readinteger('введите число для вставки: ');       l.insert(p-1,n); writeln(l)       end end. пример вводите целые числа, окончание ввода по -777 1 6 12 73 -15 34 18 0 24 -777 исходный список [1,6,12,73,-15,34,18,0,24] введите искомое число: 34 элемент 73 удален [1,6,12,-15,34,18,0,24] введите число для вставки: 1000 [1,6,12,-15,1000,34,18,0,24]

Program pr17;   var    i,n: integer;     s,sr,a: real:   begin    write(‘ введите n’);     readln(n);       s: =0;         for i: =1 to n do         begin         write(‘ введите ‘,i,’ число’);         readln(a);         s: =s+a:         end;               sr: =s/n;                                                                                       43 writeln(‘ответ: sr = ’,sr: 8: 3); end.