如何编一个pascal程序，产生两个整数之间的随机数

楼上没看懂题而且很复杂．
var a,b,c:longint;
begin
readln(a,b);//最大（a），最小（b）;
randomize;
c:=random(a)+b;
writeln(c);
readln;
end.

var
ran:integer
begin
randomize;
ran:=random(5); // 产生0,1,2,3,4,5随机数
ran:=ran+10; //10-15
end;