Программирования pascal abc выполните проверяемые c4 из для исполнителя робот найти до конца закрашенного ряда клеток количество закрашенных клеток может быть разным

Эм, ну, обычно для такого задания дают рисунок. Исходя из рисунка строиться путь, т.к есть разные варианты дороги, нельзя к каждому написать один алгоритм.

Но он будет в роде: "влево/вправо пока закрашено"
таким образом, робот будет идти в сторону, до тех пор, пока клетки будут закрашены.
Также, если будет пробел (закрашено, по середине пусто, закрашено) , то нужно написать следующий алгоритм : "Если незакрашено вправо/влево"
НО если там будет извилистая дорога, то потребуются еще действия.
Надеюсь, вы поняли. Удачи!

При измерении объемов информации есть определенные нюансы отличающие это измерение от привычных литров и килограммов. Так, чтобы зашифровать символ в популярной кодировке потребуется 8 сигналов (каждый из которых 1 или 0). Отдельно один этот сигнал будет называться бит. А одна такая последовательность, кодирующая один символ будет называться байт. Значит в 1 байте содержится 8 бит. 
Далее в каждой большей единице содержится 1024 меньшие единицы. 
Так,
в 1 кб содержится 1024 байт= 8192 бит
в 1 мб содержится 1024 кб = 1048576 байт = 8388608 бит
в 1 гб  содержится 1024 мб = 1048576 кб = 1073741824 байт = 8589934592 бит

Var a: array [1..5, 1..5] of integer;
    i, m, j: integer;
begin
     for i := 1 to 5 do
         for j := 1 to 5 do
         begin
              a[i, j] := random(50) - 25;
              writeln('[', i, ',', j, '] => ', a[i, j]);
         end;

     for i := 1 to 5 do
         for j := 1 to 5 do
             if (a[i, j] mod 2 = 0) then a[i, j] := 30;

     writeln();

     for i := 1 to 5 do
         for j := 1 to 5 do
              writeln('[', i, ',', j, '] => ', a[i, j]);
end.

Для второго не понял, как решать ._.