NKLETTER - Gửi thư
Tác giả: ladpro98
Ngôn ngữ: Pascal
const fi='';
fo='';
var sb, se : string;
f:text;
procedure docf;
begin
assign(f,fi);
reset(f);
readln(f,sb);
readln(f,se);
close(f);
end;
procedure lam;
var st : string;
begin
st := sb;
while (pos(st, se) <> 1) and (length(st) > 0) do delete(st, 1, 1);
delete(se, 1, length(st));
writeln(length(sb) + length(se));
end;
procedure ghif;
begin
assign(f,fO);
rewrite(f);
end;
begin
docf;
ghif;
lam;
close(f);
end.