Ý TƯỞNG:
while (dem<k) do:
-Kiểm tra xem 2 số liền kề nhau số nào lớn hơn thì xóa bỏ
-nếu kiểm tra đến hết xâu mà không có cặp số nào như trên thì xóa cuối cùng
uses crt;
var n,tam : string;
i,j,k,dem : integer;
ktra : boolean;
BEGIN
clrscr;
write('Nhap N: ');
readln(n);
write('Nhap K: ');
readln(k);
dem := 0;
ktra := false;
while (dem<k) do
Begin
ktra := false;
for i := 1 to length(n)-1 do
begin
while (n[i]>n[i+1]) do
begin
delete(n,i,1);
inc(dem);
ktra := true;
if (dem>=k) then break;
end;
end;
if (ktra=false) then
begin
inc(dem);
delete(n,length(n),1);
end;
End;
writeln(n);
readln;
END.
