các hảo hán đâu hết rồiiiiii code sai ở đâu vậy ạ? nó cứ exitcode=201 hoài :( ko thì làm luôn bài ở dưới phần bình luật cũng dc ============================= var v,r:text; s,s2,s3:string; t,i,a,code:longint; begin assign(v,'xauvao.inp'); reset(v); readln(v,s); assign(r,'xaura.out'); rewrite(r); for i:=1 to length(s) do if t<=3 then begin s2:=s2+s[i]; t:=t+1; end else begin val(s2,a,code); if chr(a-3)='x' then s3:=s3+'a'; if chr(a-3)='y' then s3:=s3+'b'; if chr(a-3)='z' then s3:=s3+'c'; if chr(a-3) in['a'..'w'] then s3:=s3+chr(a-3); s2:=''; t:=0; end; write(r,s3); close(r); end. ==========================