如何求10到20的随机整数，如何求10到20的随机浮点数？(30分)

如何求10到20的随机整数，如何求10到20的随机浮点数？

procedure TForm1.Button1Click(Sender: TObject);
var
num,i:byte;
f:real;
begin
Randomize;
for i:=1 to 20 do begin
Num := Random(10) + 10;
memo1.lines.add(IntToStr(num));
end;

for i:=1 to 20 do begin
f:= (Random(1000) + 1000)/100;
memo1.lines.add(FloatToStr(f));
end;
end;

Randomize;
i:=round(ramdom(10)+10);
f:=ramdom(10)+10;

多人接受答案了。