54789913 Каждая цифра заменяется собственным квадратом. В случае если квадрат представляет собой двузначное число сумма цифр составляющая это число складывается до тех пор пока не получится цифра. К заданной цепочке примените этот алгоритм пятикратно.

// PascalABC.NET 3.0, сборка 1073var  i,j,d,err:integer;  s,si:string;begin  s:='54789913';  Writeln('Исходная цепочка:  ',s);  for i:=1 to 5 do begin    for j:=1 to Length(s) do begin      Val(s[j],d,err);      d:=sqr(d);      while d>9 do d:=(d div 10)+(d mod 10);      Str(d,si);      s[j]:=si[1];    end;  end;  Writeln('Цепочка-результат: ',s)end.  Тестовое решение:Исходная цепочка:  54789913Цепочка-результат: 77419919