定义一个函数digital（n,k）,回送整数n从右边开始第k个数字,如digital（12345,2）=4,

function digtal(n,k:longint):integer;
var s:string;
begin
str(n,s);
exit(ord(s[k])-48);
end;
这是用 free pascal 设置的函数
turbo Pascal 中
exit(ord(s[k])-48);
改为 digtal:=ord(s[k])-48;