Zkd

program n_0;
 var T,zcd,dcd:string;
     N:integer;

 procedure Shifr(txt:string; shag:integer; var code:string);
      var i,j,k:integer;
          alf:string;
    Begin
     alf:= 'абвгдеёжзиклмнопрстуфхцчшщъыьэюя';
     k:=0;
      for i := 1 to Length(txt) do
       begin
         for j := 1 to Length(alf) do
           if txt[i]=alf[j] then k:=j;
         if (shag+k)>32 then txt[i]:=alf[(k+shag)-32]
           else txt[i]:=alf[k+shag];
         k:=0;
       end;
      code:=txt;
    end;

 procedure dcode(txt:string; shag:integer; var code:string);
      var i,j,k:integer;
          alf:string;
    Begin
     alf:= 'абвгдеёжзиклмнопрстуфхцчшщъыьэюя';
     k:=0;
      for i := 1 to Length(txt) do
       begin
         for j := 1 to Length(alf) do
           if txt[i]=alf[j] then k:=j;
         if (k-shag)<0 then txt[i]:=alf[32+(k-shag)]
           else txt[i]:=alf[k-shag];
         k:=0;
       end;
      code:=txt;
    end;

   begin
    write('>>');
    readln(T);
    write('>>');
    readln(N);
    Shifr(T, N, zcd);
    writeln('>>', zcd);
    dcode(zcd, N, dcd);
    writeln('>>', dcd);
   end.