Как вы представляете использование 3D -редактора в своей жизни?

20-25=-5                                                                                   

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

сначала определяем к-во символов в каждой  строке

1-1 2-3 3-7 4-15 5-31 6-63 7-127

7-я строка имеет 127 символов и состоит из символа g к которому слева добавлено

две 6-х строки, определяем номера начала и конца каждой строки

6(1-63)  6(64-126)  g(127)

видим что нужные символы во 2-й 6-й строке

6-я строка состоит из символа f к которому слева добавлено

две 5-х строки, определяем номера начала и конца каждой строки

5(64-94) 5(95-125) f(126)

нужные  символы во 2-й 5-й строке

5-я строка состоит из символа e к которому слева добавлено

две 4-х строки, определяем номера начала и конца каждой строки

4(95-109) 4(110-124) e(125)

и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней, 

aabaab c(116)  a(117) a(118) b(119) a(120) a(121) b(122) c(123) d(124)

таким образом нужные символы caabaa

алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки