NKLETTER - Gửi thư
Tác giả: skyvn97
Ngôn ngữ: Pascal
program NKLETTER;
var
pre,suf:ansistring;
max,lp,ls,len:integer;
begin
readln(pre);
readln(suf);
lp:=length(pre);
ls:=length(suf);
max:=0;
len:=1;
while (len<=lp) and (len<=ls) do
begin
if copy(pre,lp-len+1,len)=copy(suf,1,len) then max:=len;
inc(len);
end;
write(lp+ls-max);
end.