Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты

program xxx;var   b, c : array [1..15] of integer;   i, s, a : integer;

begin//Подключаем датчик случайных чисел   randomize;//Цикл заполняющий массивы    for i:=1 to 15 do       begin         b[i]:=random(100);         c[i]:=(b[i] + i);       end;//Выводим на экран 1ый массивwrite('Первый массив: ');for i:=1 to 15 do   begin     write(b[i],'  ')   end;writeln('');//Выводим на экран 2ой массивwrite('Второй массив: ');for i:=1 to 15 do   begin      write(c[i],' ')   end;writeln('');

//Вводим число Аwrite('Введите число А=');

readln(a);

//Формируем 3-ий массив и находим сумму эоементов меньших А

s:=0;for i:=1 to 15 do   if c[i]<a then begin c[i]:=c[i]* 2; s:=s+c[i]; end;

//Выводим на экран 3-ий массивwrite('Третий массив: ');for i:=1 to 15 do   begin      write(c[i],' ')   end;writeln('');

writeln('сумма элементов меньших А=', s);

readlnend.