для Паскаля
/создаем переменную
var a:integer;
begin
/присваиваем переменной значение функции
a:=Random(10);
/выводим случайное число от 1 до 10
writeln(a)
end.
Для создания переменной со случайным значением в диапозоне от 1 до 10 включительно, необходимо использовать таку функцию:
0 <= RandomNum < X
Получится такая функция
От 1 до 10 – Random(10)+1
Я считаю данный ответ сомнительным.