Напишите для робота алгоритм закрашивающий все клетки расположенные ниже горизонтальной стены длина стены неизвестна. ​

{из массива р, содержащего 10 элементов, сформировать массив н по правилу: н(к)=i/p(к), (к -чётные), н(к)=р(к)+к, (к - нечётные)в массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов.в массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.}var  p: array[1..10] of integer;   h: array[1..10] of real; i: integer; index1, index2: integer; begin   writeln('введите элементы массива p: ');   for i: =1 to 10 do  begin  readln(p[i]);   end;   writeln;   writeln('массив p: ');   for i: =1 to 10 do  begin  write(' '+p[i]+' ');   end;   writeln;   writeln('массив h: ');     for i: =1 to 10 do  begin    if (i mod 2 = 0) then  begin  h[i]: =1/p[i];   end;     if (i mod 2 < > 0) then  begin  h[i]: =p[i]+i;   end;     end;   for i: =1 to 10 do  begin  write(' '+h[i]+' ');   end;       writeln;   writeln;     writeln('нечётным элементам присваиваем значения квадратов их индексов');     for i: =1 to 10 do  begin  if (i mod 2 < > 0) then  p[i]: =i*i;   end;     for i: =1 to 10 do  begin  if (i mod 2 < > 0) then  h[i]: =i*i;   end;   writeln('массив p: ');   for i: =1 to 10 do  begin  write(' '+p[i]+' ');   end;   writeln;   writeln('массив h: ');   for i: =1 to 10 do  begin  write(' '+h[i]+' ');   end;       writeln;   writeln;   writeln('напечатать индекс последнего из элементов, равных 0');   for i: =1 to 10 do  begin  if (p[i] = 0) then  index1: =i;   end;   writeln;   writeln('индекс для массива p: '+index1);       for i: =1 to 10 do  begin  if (h[i] = 0) then  index2: =i;   end;   writeln;   writeln('индекс для массива h: '+index2);     end.