记录编号	233418	评测结果	AAAAAAAAAA
题目名称	大整数取模	最终得分	100
用户昵称	Twist Fate	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2016-03-04 21:00:46	内存使用	0.17 MiB

program chebn;
var
	a:array[1..2000] of longint;
	q,lena,code,i,j,b:longint;
	x:int64;
	n1,n2:string;
begin
	assign(input,'bigint.in');	reset(input);
	assign(output,'bigint.out');	rewrite(output);
	readln(n1);
	lena:=length(n1);
	q:=pos(' ',n1);
	n2:=copy(n1,q+1,lena);
	delete(n1,q,lena);
	lena:=length(n1);
	for i:=1 to lena do a[i]:=ord(n1[i])-48;
	val(n2,b);
	x:=0;
	for i:=1 to lena do 
		x:=(x*10+a[i]) mod b;
	writeln(x);
	close(input);	close(output);
end.