疯狂小数
最近，王老师对实数非常非常的感兴趣，特别是对实数小数点而后面的第n位感兴趣。当然啦，王老师从来是不干这种小活儿的了，所以，这个任务就留给了你！你能够给王老师做一个小程序，帮他分析出制定实数x的小数点儿后第n位是数字几呢？
（注意，题目虽然是简单，但是……可没那么简单）
Input 输入只有一行，第一个数是实数x（输入数据保证一定是a.b的形式，为了简单化问题，没有循环小数的情况）。后面跟着一个整数n（1 <= n <= 6），代表要求的小数点儿后第n位。Output 输出一个数表示小数点后第n位的数
Sample Input 1.123 2
Sample Output 2
最好使用TP来做，free pascal也行

= =这大概不会禁止用字符串吧……

简单啊

var
s:string;
begin
readln(s);
writeln(s[pos('.',s)+strtoint(s[pos(' '.s)+1]]);
end.