Помогите, пожалуйста, написать программы!) 
Заполнить массив из 15 элементов случайным образом:
1. вещественными значениями x (22<x<23)
2. вещественными значениями x (0<x<10)
3. вещественными значениями x (-50<x<50)
4. вещественными значениями, лежащими в диапазоне от 0 до 1

Фрагмент программы:var  i: integer;  a: array[1..15] of real;begin  for i := 1 to 15 do    a[i] := Random + 22;  { Или вместо предыдущей строчки подставьте одну из следующих:  a[i] := 10 * Random;  a[i] := 100 * Random - 50;  a[i] := Random;  }      {  Тут все что еще надо  }end.