random(49) +1, не понятное +1 Опции

[Студент*21в.]

Добрый 21 век!

program sportlotto; 
 
 type num=1..49;
 var i:1..6;loto:num;  

   begin randomize; 
     for i:=1to 6do 
      begin  
        loto:=random(49)+1; 
        writeln('Nr.',i:2,loto:6)  
       end 
   end.

В общем эта программа имеет недостаток в том, что не все числа могут выпасть разными. Но не это мне важно!
Мне важно узнать о функции "random". Мне не понятно почему "+1"? Для чего "+1"?
P.S. Программа из университетского учебника.

[volvo]

Где гарантия, что рандом не будет каждый раз возвращать одно число, которое уже занято? Компьютерный рандом неидеален, что он может выкинуть - я не знаю.

Я про компьютерный рандом ничего не знаю и знать не хочу. Меня "сферические кони в вакууме" как-то мало интересуют. Паскалевская функция Random возвращает с приблизительно равной вероятностью числа от (начала_интервала) до (конца_интервала-1). Где вероятность того, что рандом будет постоянно возвращать одно и то же число (если только он не вырожден как Random(1)) ? Чему она равна?

Гарантируешь?

Гарантирую. Точно с той же уверенностью, с которой ты говоришь, что код МОЖЕТ привести к вечному циклу. Я не говорю "может", я говорю ДА. Вопросы еще будут?

Тут же даже рандом неидеален и хз как себя поведёт.

Это твои личные фантазии. Никогда за почти 2 десятка лет Random не вел себя иначе чем так, как он него требовалось. Он ГАРАНТИРОВАННО (могу еще побольше шрифт сделать) возвращает последовательность, распределенную равномерно (это проверялось мной лично неоднократно на выборках любого размера - от минимального до огромного). Это и есть гарантия того, что вечного цикла не будет никогда.

P.S. Ну, а ты можешь с чистой совестью прекратить заниматься программированием. Ибо неидеален Random, неидеальны компиляторы, неидеальны процессоры, в атмосфере много возмущений, вспышки на Солнце. Неровен час, и простейший HelloWorld приведет к ядерной атаке...