PASCAL随机数

简单说一下原理
你可以产生较短的整数吧？
既然是随机数，那么顺序无关紧要
所以把一个随机的三位数乘以10000然后再加上一个四位数不就可以了？

var
a:integer;
begin
randomize;
a:=random(10000000);
writeln(a);
end.

a为随机数

begin
randomize;
writeln('1234567');
writeln(1000000+random(10000000));
end.