Program BTT;
Uses crt;
Var A,B,A1,A2,A3,B1,B2: ansistring;
Begin
        Clrscr;
        Write('Nhap xau A: '); Readln(A);
        Write('Nhap xau B: '); Readln(B);

        Writeln('A + B = ',A+B);
        If length(A) > length(B) then Writeln('Xau A dai hon')
        Else If length(B) > length(A) then Writeln('Xau B dai hon')
        Else Writeln('Hai xau dai bang nhau');

        Writeln('Do dai xau A: ',length(A));
        Writeln('Do dai xau B: ',length(B));

        A1:=A; A2:=A; A3:=A;
        Delete(A1,3,5);
        Writeln('Xau A sau khi xoa 5 ki tu o vi tri thu 3: ',A1);

        Delete(A2,1,3);
        Writeln('Xau A sau khi xoa 3 ki tu o vi tri thu 1: ',A2);

        Delete(A3,4,8);
        Writeln('Xau A sau khi xoa 8 ki tu o vi tri thu 4: ',A3);

        B1:=Copy(B,3,6);
        Writeln('6 ki tu o vi tri thu 3 cua xau B: ',B1);

        B2:=Copy(B,11,5);
        Writeln('5 ki tu o vi tri thu 11 cua xau B: ',B2);

        Readln
End.