LOCK1043 PASCAL

const fin='lock1043.inp';fon='lock1043.out';
var m,n:longint;
    s,a:array[0..10000] of char;
    code:integer;
    d:array ['1'..'2'] of longint;
procedure nhap;
var i:longint;
    c:char;
begin
    readln(n);
    for i:=1 to n do read(s[i]);
    readln;
    readln(m);
    for i:=1 to m do
    begin
        read(c);
        inc(d[c]);
    end;
end;

procedure giai;
var i,tam,x:longint;
begin
    d['1']:=d['1'] mod 10;
    for i:=1 to n do
    begin
        x:=ord(s[i])-48;
        x:=x+d['1'];
        x:=x mod 10;
        s[i]:=chr(x+48);
    end;

    d['2']:=d['2'] mod n;
    for i:=1 to n do
        s[n+i]:=s[i];
   // for i:=1 to 2*n do write(s[i]);
   // writeln;
    for i:=1 to n do
        write(s[n-d['2']+i]);
end;

begin
    assign(input,fin);reset(input);
    assigN(output,fon);rewrite(output);
    nhap;
    giai;
end.