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
      new(p); pocetak:=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'];
      P:=pocetak;

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


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

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

     if p^.br= min then begin if p^.next= nil then q^.next:=nil;

                               if (p^.next <> nil) and (i <>1) then q^.next:=p^.next;
                         end;
     q:=p;
     P:=p^.next;
     end;



     p:=pocetak;
      while p <> nil do begin
      write(p^.br:5:2);
      p:=p^.next;
      end;
     readln;
end.