Ko biết đúng hay không...
uses crt;
var s1,s2:string;
i:longint;
l:int64;
begin
clrscr;
write('Nhap xau 1:'); readln(s1);
write('Nhap xau 2:'); readln(s2);
if length(s1)<length(s2) then
        l:=length(s1)
else
        if length(s2)<length(s1) then
                l:=length(s2)
        else
                l:=length(s1);
for i:=1 to l do
        begin
               
                        write(s1[i],s2[i]);
         end;
readln
end.