Построение ветвящихся алгоритмов на ABC Pascal.

3 базовых цвета

2 бита - 4 варианта 

4*4*4=64 цвета

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж 

см схему на стр 15, № 34                                                  

рассмотрите внимательно схему с.15 № 34