Паскаль 1-всавить число в список после каждого заданного числа. 2-удалить элемент из списка с номером n

№1 var o,c,k,n,i,j,a,s: longint; l: array[1..1000]of longint; beginwriteln('введите количство чисел в спискe'); readln(n); writeln('введите числа из списка по одному'); for i: =1 to n doreadln(l[i]); writeln; writeln('введите число которое нужно вставлять'); readln(o); writeln('введите число после которого нужно вставить ' ,o,' в список'); readln(k); s: =n; for i: =n downto 1 do  if l[i]=k then begins: =s+1; for j: =s downto i+1 dol[j]: =l[j-1]; l[i+1]: =o; end; for i: =1 to s  do write(l[i],' '); end. №2 var c,k,n,i,j,a: longint; l: array[1..1000]of longint; beginwriteln('введите количство чисел в спискe'); readln(n); writeln('введите числа из списка по одному'); for i: =1 to n doreadln(l[i]); writeln; writeln('введите номер числа которое нужно удалить из списка'); readln(k); for i: =k to n do  l[i]: =l[i+1]; n: =n-1; for i: =1 to n do  write(l[i],' '); end.

Отвя думаю что 5 потому что мы проходили это давно

Объяснение: