7.out

pl0

   0  var a,b;
   1  begin
   2     a:=1;
   4     b:=32768;
 ^
Error  30: 数值过大
   6     a:=a/b;
  10     write(a)
  12  end.