program s37;
var i,j,n,m,k:integer;
s:string;
begin
writeln('vvedite stroky');
readln(s);
n:=ord(s[1]);
for i:=2 to length(s) do
 for j:=1 to 9 do begin
  m:=ord(s[i]);
  if m+j=n then begin
  k:=j;
  j:=9;
  i:=length(s);
  end;
 end;
 for i:=2 to length(s) do
 begin
 n:=ord(s[i]);
 s[i]:=chr(n+k);
 end;
 writeln(s);
 readln;
 end.