Viết chương trình nhập vào 3 xâu S1, S2, S3 độ dài không quá 200 kí tự: - Thực hiện ghép 3 xâu, hiển thị kết quả sau khi ghép ra màn hình - Chèn sâu S1 và S3 tại vị trí thứ nhất, hiển thị kết quả sau khi chèn ra màn hình.

uses crt;

var S1, S2, S3 : string[200];

begin

clrscr;

write('Nhap xau S1 = '); readln(S1);

write('Nhap xau S2 = '); readln(S2);

write('Nhap xau S3 = '); readln(S3);

writeln('Ghep xau = ', S1 + S2 + S3);

Insert(S1, S3, 1);

writeln('Chen xau S1 vao S3 = ', S3);

readln

end.

Program FNG;
Uses crt;
Var S1,S2,S3: String;
Begin
        Clrscr;
        Write('Nhap S1: '); Readln(S1);
        Write('Nhap S2: '); Readln(S2);
        Write('Nhap S3: '); Readln(S3);

        Writeln('Ghep xau: ',Concat(S1,S2,S3));

        Insert(S1,S3,1);
        Writeln('Chen xau: ',S3);
        Readln
End.