Qu'est ce qu'il affiche ce programme

uses wincrt;
var
ch:string;n:integer;
 
function inconnue(ch:string;i,p:integer):integer;
begin
    if i=0 then inconnue:=0
    else if ch[i]='1' then  inconnue:= p + inconnue(ch,i-1,2*p)
                      else inconnue:= inconnue(ch,i-1,2*p);
end; 
 
begin
    write('ch = ');readln(ch);
    writeln(inconnue(ch,length(ch),1));
end.