Цитата:
	
	
		| 
			
				 Сообщение от Kaktuz 
				Что конечно ни как не могу понять суть строки  r := random(15)+1; если же нам генерируют число 0 мы добавляем 1 и получаем 1. Это ясно. Ну, а вот если генерируем число 15 и добавляется 1 должно получится 16 но оно как-то неполучается    
			
		 | 
	
	
 
Random генерит от нуля до 
числа-1, получится не 16, а 15.