Convierta un número octal 015 a decimal y generelo. ¿Cómo escribir este programa? programación gracias

¡Yo responderé primero y te daré puntos! 3Q

{Pascal:}

const jz=8;{base=8}

var s:string;i,j,l,t, ans :integer;{ans es el resultado}

begin

readln(s);

l:=length(s);

para i:=1 a l hago

comenzar

t:=ord(s[i])-48;

para j:=1 a l-yo hago t:=t*jz;

ans:=ans+t;

end;

writeln(ans);

fin.