program z1;

var a,b,c:ansistring;

i,j,k,d:integer;

begin

writeln('шифр ');

readln(a);

writeln('ключ');

readln(d);

c:='';

b:='абвгдежзийклмнопрстуфхцчшщъыьэюя';

for i:=1 to length(a) do

for j:=1 to length(b) do

begin

k:=(j+d) mod 32;

if a[i]=b[j] then c:=c+b[k];

end;

writeln(c);

end.