Переведи число 2055'8 в десятичную систему счисления.​

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

Все довольно просто, мог бы и сам прогнать через ide!) 
1) const a: array [1..6] of integer=(1, 7, 3,6,0,10);  тут ты инициализируешь массив которые включает 6 элементов такие как: (1, 7, 3,6,0,10)
2) после ты по циклу начинаешь складывать все элементы массива, которые описаны выше - for i:=1 to 6 do s:=s+a[i]; т.е. 1+7+3+6+0+10
3) далее ты делишь сумму на 6 и присваиваешь результат переменной sr - sr:=s/6;
4) после этого пытаешься вывести значение переменной sr - writeln(‘sr=’, sr); 

ответ будет 4.5, но твоя программа не выполниться, т.к. 4.5 это дробное число, а у тебя на переменную sr стоит тип integer, для того, чтобы программа отработала и вывело ответ, сделай тип переменной sr: real и тогда у тебя все получиться =)

Если есть вопросы, то пиши