1 2 3 | Для того, чтобы получить случайное целое число в заданном диапазоне, достаточно использовать нижеприведённую инструкцию, где ВерхняяГраница это максимальное число нужного диапазона, а НижняяГраница это минимальное число этого же диапазона. iRnd = Int((ВерхняяГраница - НижняяГраница + 1 ) * Rnd + НижняяГраница) |