Помогите с заданиями по информатике 9 класс.
1) составьте программу заполнения массива а 1..10 случайными целыми числами в диапозоне от N до M. Числа N и M введите с клавиатуры вывидите на экран полученный массив
2)Составьте программу заполнения массива a[1..10] следуюзими числами:
Индекс элемента:1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Значение элемента:3, 5, 7, 9, 11, 13, 15, 17, 19, 21
Закономерность: для каждого элемента массива его значение равно удвоенному индексу, увеличенному на 1.
3) Составьте программу заполнения массива a{1..10] числами Фибоначчи. В последовательности Фибоначчи значения первых двух элементов равны 1, а значение каждого последующего элемента, начиная с третьего, равно сумме двух предыдущих.
Индекс элемента: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Значение элемента: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55

const k=10;

var a:array[1..k] of integer;

n,m,i:integer;

begin

// 1

write('n, m: ');

readln(n,m);

for i:=1 to k do

begin

a[i]:=random(m-n+1)+n;

write(a[i],' ');

end;

writeln;

// 2

for i:=1 to k do

begin

a[i]:=2*i+1;

write(a[i],' ');

end;

writeln;

// 3

a[1]:=1; a[2]:=1;

write(a[1],' ',a[2],' ');

for i:=3 to k do

begin

a[i]:=a[i-2]+a[i-1];

write(a[i],' ');

end;

writeln;

end.

Пример:

n, m: 5 15

5 6 11 8 6 14 8 7 9 10  

3 5 7 9 11 13 15 17 19 21  

1 1 2 3 5 8 13 21 34 55