Một số bài toán hay bồi dưỡng HSG

{Chen so x vao day a[i] da sap xep sao cho day a[i] van dam bao tang dan}
program bt1;
Var
a: array[1..100] of integer;
x: integer;
i,n: byte;
Procedure BS(n:byte; x: integer);
Begin
if (n=0) or (x>=a[n]) then a[n+1]:=x
Else
Begin
a[n+1]:=a[n];
BS(n-1,x);
end;
end;
BEGIN
Write(`Nhap day so:`); readln(n);
For i:=1 to n do a[i]:=i;
Write(`Nhap so x can chen:`); readln(x);
Bs(n,x);
For i:=1 to n+1 do
Write(a[i]:4);
Readln;
END. `