Как создать случайное число в FreePascal между 1 и 1 000 000

Question

Как создать случайное число в Free Pascal между 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.

BTW: Вы не должны называть свою программу Случайный, это приводит к ошибке (но не к ошибке диапазона).