HELP ME PLEASE MY FRIENDSНадо сделать 2 и 3 задачу с дано и решение

uses crt;
var
a:array [1..9] of integer;
i,c,m,n:integer;
b:real;
begin
clrscr;
randomize();
c:=1;
for i:=1 to 9 do
begin
if i=c then
begin
a[i]:=i+3;
c:=c+3;
end
else
begin
if i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1);
end;
write(a[i],' ');
end;
readln();
end.

uses crt;
var x,y,s,i,j:integer;
a: array [1..15] of integer;
begin
clrscr;
randomize();
writeln('Vvedite chislo');
readln(x);
writeln('Ishodniy');
for i:=1 to 15 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln;
writeln('Ispravlenniy');
for i:=1 to 15 do
begin
if a[i]+i<x then
begin
a[i]:=(a[i]+i)*2;
s:=s+a[i];
textcolor(red);
write(a[i],' ');
end else
begin
textcolor(white);
a[i]:=(a[i]+i);
write(a[i],' ')
end;
end;
writeln;
textcolor(green);
writeln('Summa =',s);
readln;
end.

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);

readln
end.