Запишите функцию для получения случайного числа x из промежутка: [0; 15) [0; 15] [-15; 15) [10; 15)

function Random_Range(x, y : Integer) : Integer;begin    Random_Range := Random(y) - x;end;

var   i : Integer;begin

   Randomize;

   Writeln( Random_Range(0, 15) ); // [0; 15)   Writeln( Random_Range(0, 16) ); //[0; 15]    Writeln( Random_Range(15, 30) ); //[-15; 15)    Writeln( Random_Range(-10, 5) ); //[10; 15)   ReadLn; end.