type pokazivac=^broj

     broj=record
     br:real;
     next:pokazivac;
     end;
var i,j:integer;
    a,min:real;
    p,q,w,pocetak:pokazivac;
    odg:char;

begin
      pocetak:=nil;
      new(p)
      repeat
      write('upisujte brojeve '); readln(p^.br);
      writeln ('nastavak unosa? d/n');readln(odg);
      if odg in ['n','N'] then p^.next := nil
                          else begin
                               new(q);
                               p^.next:=q;
                               p:=q;
                               end;
      until odg IN ['N','n'];
      pocetak:=p;
      i:=1;
      p:=pocetak;
      while p^.next <> nil do begin
      write(p^.br:5:2);
      p:=p^.next;
      end;

      p:=pocetak;
      while p^.next<>nil do begin
      if i mod 2 = 0 then begin a:=a+p^.br;
                                new(w);
                                w^.br:=a/2;
                                q^.next:=w;
                                w^.next:=p;
                                end
                     else begin
                          a:=a+p^.br;
                          q:=p;
                          end;
     p:=p^.next;Śnc(i);
     end;


     p:=pocetak;
     min:=p^.br;
     p:=p^.next;
     while p^.next <> nil do begin
     if min > p^.br then min:=p^.br;
     p:=p^.next;
     end;

     p:=pocetak;  i:=0;
     while q^.next <> nil do begin
     inc(i);
     q:=p;
     p:=
     if p^.br:= min then begin if p^.next= nil then q^.next:=nil;
                               if I:=1 then pocetak:=p^.next;
                               if (p^.next <> nil) and (i <>1) then q^.next:=p^.next;
                         end;