Viết chương trình nhập vào 1 xâu từ bàn phím .a. In ra màn hình độ dài của xâu vừa nhập .b. Sử dụng xâu vừa nhập ở trên. Tiếp tục nhập từ bàn phím n kí tự cần xóa, vị trí vt cần xóa. In ra màn hình xâu sau khi xóa. * ai giúp em với ạ ... thanks

uses crt;
var a,b:string;
begin
clrscr;
write('Nhap xau ki tu thu nhat: ');readln(a);
write('Nhap xau ki tu thu hai: ');readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.

uses crt;
var a,b:string;
begin
clrscr;
write('Nhap xau ki tu thu nhat: ');readln(a);
write('Nhap xau ki tu thu hai: ');readln(b);
if length(a)>length(b) then writeln(b) else if length(b)>length(a) then writeln(a) else begin writeln(a); writeln(b);end;
readln
end.

chúc bn hc tốt