var f,g:text;
A:array[1..100] of integer;
n,i,k,j:integer;
begin
Assign(f,'Xephang.inp'); reset(f);
Assign(g,'Xephang.out'); rewrite(g);
readln(f,n,k);
for i:=1 to n do
read(f,A[i]);
if A[n]<k then A[n+1]:=k;
i:=1;
while A[i]<k do i:=i+1;
for j:=n+1 downto i+1 do
A[j]:=A[j-1];
A[i]:=k;
for i:=1 to n+1 do
write(g,A[i],' ');
close(f); close(g);
end.
Chương trình bị exitcode 2 thì bạn vẫn cứ nhập bình thường nha, không sao đâu, mình test rồi.