Опишіть схему реалізації інформаційних процесів у комп'ютері за малюнком 2.1

Поискал, относительно понятно, что за метод.
Выписываем степени двойки
32, 16, 8, 4, 2, 1
и переведём число 25 в двоичную систему.
32? нет, не годится, т.к. 25<32
пишем под 32 0
32, 16, 8, 4, 2, 1
  0,
25-16 = 9(это следующее число)
Т.к. 25>16, пишем под 16 единицу
32, 16, 8, 4, 2, 1
  0,   1,
9-8 = 1(следующее число)
9>8, пишем под 8 единицу 
32, 16, 8, 4, 2, 1
  0,   1, 1, 
1<4, под 4 пишем 0
32, 16, 8, 4, 2, 1
  0,   1, 1, 0,
1<2, под 2 пишем 0
32, 16, 8, 4, 2, 1
  0,   1, 1, 0, 0,
1=1, под 1 пишем 1
32, 16, 8, 4, 2, 1
  0,   1, 1, 0, 0, 1
итого
25_10 = 11001_2

Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно