运行错误：溢出.pl0

PL0的一个编译器

var a,b;
begin
	a:=2047;
	b:=2047;
	a:=a*b;
	write(a)
end.