Program ref1;
uses crt;
type lista=^celula;
     celula=record
         nr:integer;
         next:lista;
         end;

var p,u,r:lista;
    n,i,s,max,min:integer;


    procedure invers(r:lista);
    begin
    if r^.next<>nil then
    invers(r^.next);
    write(r^.nr,' ');
    end;

begin clrscr;

write('n='); readln(n);
p:=nil;
for i:=1 to n do begin
write('elementul ',i,' este: ');
   new(r);
   readln(r^.nr);
   r^.next:=nil;
if p=nil then begin
p:=r;
u:=r;
end
else begin
u^.next:=r;
u:=r;
end;
end;

r:=p;
writeln;
write('lista este: ');
while r<>nil do begin
write(r^.nr,' ');
r:=r^.next;
end;

writeln;
write('lista  inversata este: '); invers(p);

s:=0; r:=p; max:=p^.nr; min:=p^.nr;

while r<>nil do begin
s:=s+r^.nr;
if r^.nr>max then max:=r^.nr;
if r^.nr<min then min:=r^.nr;
r:=r^.next;
end;
writeln;

writeln('suma este: ',s);
writeln('min este: ',min);
writeln('max este: ',max);

 readln;
end.