Должно работать это:
var N,r:integer; //нужные нам переменные
begin //СТАРТУЕМ!
writeln('Впишите N. . .'); //просим ввести N
readln(N); //получаем N
randomize; //без этого рандом выдаёт одно и то же
r := random(N-15+1)+15; //формула раандома
writeln(r); //выводим рандомное число
end. //выключаем программу