Как можно научить робота двигаться по линии? как можно использовать датчик цвета для организации движения робота?

4321103÷2=2160552,остаток 1; 2160552÷2=1080276,остаток 0; 1080276÷2=540138, остаток 0; 540138÷2=270069, остаток 0; 270069÷2=135034, остаток 1; 135034÷2=67517, остаток 0; 67517÷2=33758, остаток 1; 33758÷2=16878, остаток 0; 16878÷2=8439,остаток 0; 8439÷2=4219,остаток 1; 4219÷2=2109,остаток1; 2109÷2=1054, остаток 1; 1054÷2=527,остаток 0; 527÷÷2=263,остаток 1; 263÷2=131,остаток1; 131÷2=65, остаток 1; 65÷2=32, остаток 1; 32÷2=16,остаток 0; 16÷2=8,остаток 0; 8÷2=4, остаток 0; 4÷2=2, остаток 0; 2÷2=1, остаток 0; 1÷2=0, остаток 1.
(4321103)=(10000011110111001010001)

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.