Viết chương trình nhập vào hai xâu kí tự s1,s2 Tính tổng độ dài hai xâu và in kết quả từ a màn hình In ra màn hình xâu thu được khi xoá 5 kí tự từ vị trí thứ 3 trong sâu s1

uses crt;

var s1， s2， s3， s: string;

begin

   clrscr;

   write(‘Nhap xau 1: ‘); readln(s1);

   write(‘Nhap xau 2: ‘); readln(s2);

   s:=s1+s2;

   writeln(‘tong do dai hai xau la: ‘，length(s)); 

   s3:=delete(s1，3，5);

   writeln(‘xau moi sau khi xoa la: ‘，s3);

   readln

end.

program kaito;

uses crt;

var s1, s2, s: string;

begin

   clrscr;

   write('Nhap xau 1: '); readln(s1);

   write('Nhap xau 2: '); readln(s2);

   s:=s1+s2;

   writeln('tong do dai hai xau la: ',length(s)); 

   delete(s1,3,5);

   writeln('xau moi sau khi xoa la: ',s1);

   readln

end.

CHÚC BẠN HỌC TỐT!!!