Pascal (Паскаль) Random

Я хочу рассказать о функции Random как вы уже поняли по названию статьи. Название говорит само за себя, что бы получить какое - то рандомное число...

Вот не большой пример:

var
 i, s: Integer;
begin
randomize;
 for i := 1 to 10 do 
  begin
   s := random(10);
   write(' ',s);
  end;
end.

Процедура Randomize нужна для того что бы числа не повторялась и при каждой компиляции кода будут разные значения. Немного из хелпа Паскаля.

• procedure Randomize(seed: integer);
  Инициализирует датчик псевдослучайных чисел, используя значение seed. При одном и том же seed генерируются одинаковые псевдослучайные последовательности.
• function Random(maxValue: integer): integer;
   Возвращает случайное целое в диапазоне от 0 до maxValue-1 

Что бы с генерировать к примеру от 22 до 64:

var
i, s: Integer;
begin
randomize;
for i := 1 to 64 do
begin
s := random(43)+22;
write(' ',s);
end;
end.

43 = 0..42
0 + 22 ... 42+22 = 22..64
Еще пример, от 100 до 200

var
i, s: Integer;
begin
randomize;
for i := 1 to 64 do
begin
s := random(101)+100;
write(' ',s);
end;
end.

101 = 0..100
0 + 100 ... 101 + 100 = 100 ... 200