random - FreePascalで1から1,000,000の間の乱数を生成する方法

Question

1から1,000,000の間のフリーパスカルで乱数を生成する方法は?

変数の型として、LongInt、Real、Integer を使用しましたが、常に RangeError が発生します。

しかし、1 から 33,333 までの乱数は正しく機能しています。

Program Random;

var
  a: ...;

begin

a:=random(1000000);

end.

Answer 1

どのバージョンの Free Pascal を使用していますか? ここで 2.6.0 とLongIntをa の型として使用しても問題はありません。

ところで: プログラムにRandomという名前を付けないでください。これによりエラーが発生します (ただし、範囲エラーにはなりません)。