RandomRange

Функция генерирует произвольное целое число в пределах диапазона AFrom и ATo.

Синтаксис
RandomRange(AFrom: Integer; ATo: Integer): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
AFrom	Integer	Любое число
ATo	Integer	Любое число
Выходные параметры
Тип параметра		Описание
Integer		Произвольное число в указанном диапазоне

Var
res, a, b: Integer;

Begin

a := 0;

b := 17;

res := RandomRange(a, b);

WriteValue('Virtual channel 99', res);

end.