Pascal :

var s:array [1..10000] of longint; a,b,n,m,i,j,k:longint;
begin
    repeat
        a:=a+1;
        read(s[a]);
        if a>20 then begin write('0'); break; end;
    until s[a]=10;
    if a<=20 then write(a);
end.