program sleep_over;
uses crt;

type adresa=^element;
     element=record
                   a:integer;
                   veza:adresa;
             end;
  var           p,q,g:adresa;
                s:string;
                c,b,i:integer;

procedure upisp;
var i:integer;
begin
g:=nil;
repeat
        new(p);
        readln(p^.a);
        p^.veza:=g;
        g:=p;
        write('oces li jos stoko ? ');
        readln(s);
until s='ne';

end;


procedure upisk;
begin
new(p);
g:=p;
repeat
      readln(p^.a);
      write('joooos?');
      readln(s);
                if s='ne' then p^.veza:=nil
                   else
                       begin
                            new(q);
                            p^.veza:=q;
                            p:=q;
                       end;
until s='ne';


end;


procedure upit;
begin
writeln('bok! zelis li dodavati na kraj ?, ako da upisi da');
writeln('bok! ako zelis dodavati na pocetak, upisi ne' );
writeln('bok! ako zelis kraj , upisi kraj');
readln(s);
if s='da' then  upisk else if  s='ne' then upisp else if s='kraj' then
upit;
readln
end;

procedure ispis;
begin
p:=g;
     while p<>nil do
           begin
                writeln(p^.a);
                p:=p^.veza;
           end;
readln
end;

procedure znam;
begin
b:=p^.a;
repeat
b:=b div 10 ;
until b<10;
end;

procedure brojaj;
begin
p:=g;
c:=0;
while p <> nil do
      begin
      znam;
      if (b=1) or (p^.a=1) then c:=c+1;
      p:=p^.veza;
      end;
readln
end;



begin
clrscr;
 upit;
 ispis;
 brojaj;
 writeln('brojeva koji pocinju sa jedan ima : ',c);
 readln
 end.