Pascal Получить случайное число в диапазоне - пример

Чтобы получить "случайные" числа в Паскале, необходимо:

1. сначала инициализировать датчик этих чисел вызовом стандартной процедуры randomize()
2. а затем получать очередное случайное число вызовом стандартной функции random(x) - где $x$ - правая граница диапазона $[0..(x-1)]$.

Пример:

var n, i, x: integer;
begin
    randomize(); // инициал. датчик случайных чисел (вызов стандартной процедуры)
 
    n := 5; // сколько чисел выводить
 
    for i := 1 to n do 
    begin
        x := random(100) - 50; // из диапапоза она от -50 до 49
        writeln(x); // печатаем значение
    end;
end.

В примере выше мы сдвигаем диапазон [0..99], который явно задаёт вызов random(100) с помощью вычитания необходимого значения, например -50 (в данном примере - это сдвиг влево).