pascal初级题

var a:integer; begin randomize; a:=random(100); writeln(a); end. a为1-100间的随机数。