NKLETTER - Gửi thư
Tác giả: flashmt
Ngôn ngữ: Pascal
var a,b:string;
la,lb,i,j,re:integer;
kt:boolean;
begin
readln(a);
read(b);
la:=length(a); lb:=length(b); re:=la+1;
for i:=la downto 1 do
begin
kt:=false;
for j:=0 to la-i do
if a[i+j]<>b[j+1] then
begin
kt:=true;
break;
end;
if not kt then re:=i;
end;
write(lb-1+re);
end.