uses crt; var se,sb:string; i,dem,nho:byte; begin clrscr; readln(sb); readln(se); dem:=1;nho:=0; for i:=1 to length(sb) do if copy(sb,length(sb)-i+1,i)=copy(se,1,i) then nho:=i; delete(se,1,nho); writeln(length(sb)+length(se)); readln; end.
uses crt; var i:byte; sb,se:string; begin clrscr; readln(sb); readln(se); i:=1; while pos(copy(se,1,i),sb)<>0 do inc(i); dec(i); delete(se,1,i); writeln(length(sb)+length(se)); readln end.