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.

Download