) 
uses crt;
var sb,se,ss:string;
i,l:integer;
begin
clrscr;
readln(sb);
readln(se);
i:=length(se)+1;
repeat
dec(i);
ss:=copy(se,1,i);
if pos(ss,sb)<>0 then delete(se,pos(ss,se),i);
l:=length(sb)+length(se);
until pos(ss,sb)<>0;
writeln(l);
readln;
end.Program Bones;
Var s1,s2,s3:Integer;
A:array[1..100] Of integer;
Procedure Init;
Var i,j,k,max,imax:integer;
Begin
FillChar(A,SizeOf(A),0);
Readln(S1,s2,s3);
For i:=1 to s1 do
For j:=1 to s2 do
For k:=1 to s3 do
inc(A[i+j+k]);
max:=A[1];
imax:=1;
For i:=2 to 100 do
If A[i]>max then
Begin
max:=A[i];
imax:=i;
End;
Writeln(imax);
End;
BEGIN
Init;
readln
end.Bác cho bài khác đi bác......................
Program ChuyenCoSo;
Var A:array[1..100] Of Integer;
B:array[1..6] Of String = ('A','B','C','D','E','F');
n:integer;
Procedure Chuyen2(n:integer);
Var m,i,imax:integer;
Begin
m:=n;
i:=0;
Repeat
inc(i);
A[i]:=m mod 2;
m:=m div 2;
Until m=0;
imax:=i;
For i:=imax downto 1 do write(A[i]);writeln;
End;
{ -------------------------------------}
Procedure Chuyen8(n:integer);
Var m,i,imax:integer;
Begin
m:=n;
i:=0;
Repeat
inc(i);
A[i]:=m mod 8;
m:=m div 8;
Until m=0;
imax:=i;
For i:=imax downto 1 do write(A[i]);writeln;
End;
{ -------------------------------------}
Procedure Chuyen16(n:integer);
Var m,i,imax,t:integer;
A:array[1..100] Of String;
Begin
m:=n;
i:=0;
Repeat
inc(i);
t:=m mod 16;
If t>=10 then t:=t-9;
A[i]:=B[t];
m:=m div 16;
Until m=0;
imax:=i;
For i:=imax downto 1 do write(A[i]);writeln;
End;
BEGIN
Readln(n);
Chuyen2(n);
Chuyen8(n);
Chuyen16(n);
readln
End.Program Chuyencoso;
Var n:String;
Cs16:array[0..15] Of String=
('0','1','2','3',
'4','5','6','7',
'8','9','A','B',
'C','D','E','F') ;
Gtcs2:array[0..15] Of String=
('0000','0001','0010','0011',
'0100','0101','0110','0111',
'1000','1001','1010','1011',
'1100','1101','1110','1111');
Procedure Chuyen2s16(n:string);
Var i:integer;
m,s1,KQ:string;
Begin
m:=n;
While (length(m )mod 4<>0) do m:='0'+m;
// writeln(m,'--------------------');
s1:='';
KQ:='';
Repeat
s1:=Copy(m,1,4);
For i:=0 to 15 do If Gtcs2[i]=s1 then break;
KQ:=KQ+Cs16[i];
Delete(m,1,4);
Until m='';
writeln(KQ);
End;
BEGIN
Write('Nhap so nhi phan:');
readln(n);
Writeln('Chuyen tu co so 2 sang 16');
Chuyen2s16(n);
readln
END.