Палиндромы какое минимальное количество символов необходимо заменить на другие в строке acccaccbaaccbaccacab, чтобы после замены строка стала палиндромом (каждый символ можно заменить ровно на 1 другой символ)? палиндромом называется строка, которая одинаково читается как слева направо, так и справа налево. например, 'abacaba' — палиндром, а 'abc' — нет.

Var s:string;
i,l,k:integer;
begin
s:='acccaccbaaccbaccacab';
l:=length(s); k:=0;
for i:=1 to l div 2 do
 if s[i]<>s[l-i+1] then k:=k+1;
writeln('k=',k);
end.

Например, мы делаем часто чай.
1. Войти на кухню.
2. Открыть шкаф.
3. Взять чашку. 
4. Поставить ее на стол. 
5. Закрыть шкаф.
6. Взять чайник.
7. Включить газ.
8. Зажечь спичку.
9. Зажечь газ в конфорке с спички.
10. Поставить чайник на огонь.
11. Открыть шкаф.
12. Взять сахарницу.
13. Закрыть шкаф.
14. Открыть ящик. 
15. Взять ложку.
16. Закрыть ящик.
17. Набрать в ложку сахар.
18. Положить сахар в чашку.
19. Положить ложку на стол.
20. Открыть шкаф.
21. Взять пакетик чая.
22. Закрыть шкаф.
23. Положить пакетик чая в чашку.
24. Когда чайник закипел, выключаем конфорку.
25. Берем чайник.
26. Наливаем воду в чашку.
27. Ставим чайник.
28. Берем ложку.
29. Мешаем.
30. Кладем ложку на стол.
31. Пьем. 

Var a:array[1..7]of integer;
     p3,p5,s,i,k,min,n:integer;
     srz:real;
begin
 p5:=1; p3:=1; min:=25;
 for i:=1 to 7 do
  begin 
   read(a[i]);
    if a[i]<>0 then
     begin
      if a[i] mod 5=0 then p5:=p5*a[i];
      if a[i] mod 3=0 then p3:=p3*a[i];
      if a[i] mod 2=0 then
       begin
        s:=s+a[i];
        k:=k+1;
       end;
      if a[i]<min then
       begin
        min:=a[i];
        n:=i;
       end;
     end;
  end;
 srz:=s/k;
 writeln;
 write('proizv kratnih trem:',p3,' proizv kratnih peti:',p5,' srednee znachenie chet elementov:',srz,' minimalnoe:',min,' nomer minimalnogo:',n);
end.