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

题目要求定义

program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
n,k,x,y,a,b:integer;
function digit(n,k:integer):integer;
begin
writeln('输入n,k的值:');
Readln(n,k);
while k>0 do
begin
x:=n mod 10;
y:=n div 10;
n:=y;
k:=k-1
end;
Writeln('回送的值为：',x);
Readln(x);
end;
begin
a:=0;b:=0;
digit(n,k);
readln;
end.