var i,j,k,l:longint;
s:string;
begin
readln(s);
j:=1;
l:=0;
for i:=length(s) downto 1 do begin
if(s[i] in ['0'..'9'])then k:=ord(s[i])-ord('0');
if(s[i] in ['A'..'F'])then k:=ord(s[i])-ord('A')+10;
inc(l,j*k);
j:=j*16;
end;
writeln(l);
end.
此乃源代码。
题目是输入16进制数，输出其10进制表示。

这道题没错啊……

试试这个程序看：
var s:ansistring;i,k:longint;ans:qword;
begin
readln(s);
for i:=1 to length(s) do begin
k:=ord(s[i]);
if (k>=48) and (k<=57) then ans:=ans*16+k-48 else ans:=ans*16+k-55;
end;
writeln(ans);
end.

　　 　　 　✎　　　灵失空间，我给你留下了这么一句话。