em cần gấp ạ ai giải nhanh em cho 5*+cảm ơn

var s,x,x1: string;
    i,k: integer;
begin
    readln(s);
    readln(k);
    x:=''; x1:='';
    for i:=1 to length(s) do begin
        if i>k then x1:=x1+s[i]
        else x:=x+s[i]
    end;
    for i:=length(x) downto 1 do write(x[i]);
    for i:=length(x1) downto 1 do write(x1[i]);
end.

`* Pascal:`

`" "`

program encoder;
uses crt;
var S : ansistring;
    K, indi, cocher: integer;
    ouv, fer : text;
    
begin
    clrscr;
    assign(ouv, 'BAI5b.INP');
    reset(ouv);
    assign(fer, 'BAI5b.OUT');
    rewrite(fer);
    
    readln(ouv, S);
    readln(ouv, K);
    cocher := length(S) + 1 - K;
    
    for indi := cocher - 1 downto 1 do 
        write(fer, S[indi]);
    for indi := length(S) downto cocher do 
        write(fer, S[indi]);
        
    close(ouv);
    close(fer);
end.

`" "`

`*` cocher: Chỉ số của phần tử đầu tiên của xâu Sb

`*` Chỉ số các phần tử của xâu Sa chạy từ 1 đến cocher - 1

`*` Chỉ số các phần tử của xâu Sb chạy từ cocher đến length(S)