program ex4；
var a,b,c,d:integer;
begin
randomize；
a：=random(5000）； c:=0；
repeat
c:=c+1；
read（b);
if a> b then write（ ’GAO’） ；
if a<b then write ('Di');
if a=b then write (' OK');
until
a=b ;
readln
end. 请问 为什么这个程序运行的时候 输入超过5000的数 还会显示 Di 只有输入大于32767（极限值）的数字 才会显示低 求解
from 刚刚学pascal 6天的渣渣 用的是学校的pascal 7.0
