program xoa_chu_so; uses crt; var s:string; k,i,j,vt,min,so:byte; begin clrscr; write('Nhap xau: '); readln(s); write('Nhap k: '); readln(k); for i:=1 to k do begin vt:=1; val(s[1],min); for j:=2 to length(s)-k+i do begin val(s[j],so); if so<min then begin min:=so; vt:=j; end; end; delete(s,vt,1); end; write(s); readln; end.
