Функция RANDOM (X) возвращает случайное целое число в диапазоне от 0 до Х-1. В переменную Y требуется поместить случайное целое число в диапазоне от 40 до 46 включительно
Var y:integer; ... y:=random(7)+40;
спасибо)