Использовать список при следующем его описании: type adrcel=^element; element=record info: integer; next: adrcel; end; составить процедуру, которая удаляет из списка второй элемент, если такой есть. хэлп ми

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

Const n=20; var x,y : array[1..n] of integer;     i,a,b,c : integer; f: real; begin randomize;   writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =random(101)-50;   write(x[i],' ');   end;   writeln; a: =0; b: =0; c: =0; for i: =1 to n do   begin   if x[i]< 0 then a: =a+x[i];   if x[i] mod 2 = 0 then b: =b+1;   if (c=0)and(x[i]> 0) then c: =i;   end; writeln('a=',a,'   b=',b,'   c=',c); f: =c+((a+b)/(10-c+a)); writeln('f=',f: 5: 2); end.пример: исходный массив: 10 -37 1 31 -22 45 3 32 -2 48 -19 -48 39 22 -39 -29 -49 8 -16 22   a=-261 b=10 c=1 f= 2.00

Const m=20;     var i,j,s,n: integer;     a: array[1..m,1..m] of integer; begin   write('n = ');   readln(n);   randomize; { заполнение массива и вывод на экран}   s: =0;   for i: =1 to n do     for j: =1 to n do       begin       a[i,j]: =random(58);       write(a[i,j]: 4,' ');       if j=n then writeln;     end;   { сумма элементов под главной диаг. }   s: =0;   for i: =2 to n do   for j: =1 to i-1 do     s: =s+a[i,j];     writeln('средне арифметическое:   ',s/(n*(n-1)/2): 5: 3); end.